powered by
sfApply
apply
omxApply(x, margin, fun, ...)
as.list
x
fun
omxLapply
omxSapply
x <- cbind(x1 = 3, x2 = c(4:1, 2:5)) dimnames(x)[[1]] <- letters[1:8] omxApply(x, 2, mean, trim = .2)
Run the code above in your browser using DataLab