handling NA values in apply functions returning more than one value

Question

I have dataframe df with two columns col1, col2, includes NA values in them. I have to calculate mean,

Answer 1

Here is an option:

funs <- list(sd=sd, mean=mean)
sapply(funs, function(x) sapply(df, x, na.rm=T))

Produces:

           sd       mean    
col1.value 39.34826 39.42857
col2.value 28.33946 51.625  

If you want to get cute with the functional library:

sapply(funs, Curry(sapply, X=df), na.rm=T)

Does the same thing.