R/cumsumsurv.R

In ELYP: Empirical Likelihood Analysis for the Cox Model and Yang-Prentice (2005) Model

Defines functions cumsumsurv

Documented in cumsumsurv

cumsumsurv <- function(x){
 	if ( any(is.na(x)) ) stop('NaNs');
 	s=x;
 	.C('cumsumsurv', x=as.numeric(x), s=as.numeric(s), LLL=length(x))$s
 	}

Try the ELYP package in your browser