Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.