https://github.com/cran/emplik
Raw File
Tip revision: 0a13baf815199c799dedcf0559f4a52598d3f0fd authored by Mai Zhou on 13 August 2014, 00:00:00 UTC
version 0.9-9-5
Tip revision: 0a13baf
cumsumsurv.R
cumsumsurv<-function(x){
 	if (sum(is.na(x))>0)stop('NaNs');
 	s=x;
 	.C('cumsumsurv',x=as.numeric(x),s=as.numeric(s),LLL=length(x))$s
 	}



back to top