sfunction {dga}

A Helper Function for make.strata.

Description

This is the simplest function ever. It's just an apply to sum across columns.

Usage

sfunction(x)

Arguments

x

capture histories, as numbers

Value

apply(x, 2, sum)

Author(s)

Kristian Lum [e-mail]

Examples

## The function is currently defined as
sfunction <- function(x) {
  out <- apply(x, 2, sum)
}