dat <- data.frame(c1 = c(1,2,NA,4),
c2 = c(NA,2,NA,5),
c3 = c(NA,4,NA,NA),
c4 = c(2,3,7,8))
mean_n(dat, 4) # 1 valid return value
mean_n(dat, 3) # 2 valid return values
mean_n(dat, 2)
mean_n(dat, 1) # all means are shown
Run the code above in your browser using DataLab