https://github.com/cran/emplik
Tip revision: 6499006531aa58c62dc136e7a2daf03dfbc5aa36 authored by Mai Zhou on 07 September 2023, 17:00:02 UTC
version 1.3-1
version 1.3-1
Tip revision: 6499006
cumsumsurv.R
cumsumsurv <- function(x){
## if (sum(is.na(x))>0) stop('NaNs'); 3/2015 MZ
if(any(is.na(x))) {
stop('NaNs')
}
s = x
return(.C('cumsumsurv',
x = as.numeric(x),
s = as.numeric(s),
LLL = length(x),
package = 'emplik')$s)
}