mean_columns <- function(d_frame){
d_frame<-d_frame[sapply(d_frame,is.numeric)]
colMeans(d_frame,na.rm = TRUE)
}
mean_columns(d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.