R/nnumattr.R

nnumattr <-
function(df){
# Number of numeric attributes
 pct<-0
 for (i in 1:dim(df)[2]){
  if (is.numeric(df[,i])) pct<-pct+1
 }
 pct
}

Try the symbols package in your browser

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

symbols documentation built on May 2, 2019, 8:28 a.m.