R/is.row.na.R

is.row.na<-function (data)
{
  n <- dim(data)
  n1 <- n[1]
  n2 <- n[2]
  ind <- rep(FALSE, n1)

  for (i in 1:n1) {
    if (sum(is.finite(data[i, ]))==n2)
      ind[i] <- TRUE
  }
  ind
}

Try the rama package in your browser

Any scripts or data that you put into this service are public.

rama documentation built on Nov. 8, 2020, 8:02 p.m.