remove row with nan value

Question

let\'s say, for example, i have this data:

data <- c(1,2,3,4,5,6,NaN,5,9,NaN,23,9)
attr(data,\"dim\") <- c(6,2)
data

     [,1] [,2]
[1,]    1  NaN
[2,         


        

Answer 1

DATA

data <- matrix(rnorm(100000000), ncol=10000)
idx <- sample(1:10000,100)
idy <- sample(1:10000,100)
data[idx,idy] <- NaN

FUNCTION

foo <- function(d=data) d[apply(d,2,function(x) any(is.nan(x))),]

RUNTIMES

> system.time(data[complete.cases(data),])
   user  system elapsed 
   3.53    0.12    3.65 

> system.time(foo(data))
   user  system elapsed 
   2.37    0.09    2.46