Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mean <- function (x, ...) UseMethod("mean", x)
- mean.numeric <- function(x, ...) sum(x) / length(x)
- mean.data.frame <- function(x, ...) sapply(x, mean, ...)
- mean.matrix <- function(x, ...) apply(x, 2, mean)
- mean.default <- function(x, ...) {
- # do something
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement