https://github.com/cran/emplik
Raw File
Tip revision: 78231fbeebe818d08bfff5c08b65174de9d07ab0 authored by Mai Zhou on 17 August 2018, 19:50:54 UTC
version 1.0-4.3
Tip revision: 78231fb
cumsumsurv.R
cumsumsurv <- function(x){
 	if(any(is.na(x))) stop('NaNs');    ## if (sum(is.na(x))>0) stop('NaNs');  3/2015 MZ
 	s=x;
 	.C('cumsumsurv',x=as.numeric(x),s=as.numeric(s),LLL=length(x))$s
 	}



back to top