powered by
This is the simplest function ever. It's just an apply to sum across columns.
sfunction(x)
capture histories, as numbers
apply(x, 2, sum)
# NOT RUN { ## The function is currently defined as sfunction <- function(x) { out <- apply(x, 2, sum) } # }
Run the code above in your browser using DataLab