[R] getting sapply to skip columns with non-numeric data?

[r user]

getting s-apply to skip columns with non-numeric data?
I have a dataframe “x” of w columns.

Some columns are numeric, some are not.

I wish to create a function to calculate the mean and
standard deviation of each numeric column, and then
“bind” the column mean and standard deviation to the
bottom of the dataframe.

e.g. 

tempmean <- apply(data.frame(x), 2, mean, na.rm = T)
xnew <- rbind(x,tempmean)

I am running into one small problem…what is the best
way to have sapply “skip” the non-numeric data and
return NA’s?

______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.