powered by
install.packages('imp4p')
apply(X,dim,function(x)sum(!is.na(x)))
apply(X,dim,function(x)sum(is.na(x)))
apply(X,dim,sum,na.rm=TRUE)
apply(X,dim,sd,na.rm=TRUE)