Nothing
Pk.us <- function(CIF, data, bl) {
p1a <- nrow(data$Sig) - 1
b <- as.vector(bl[1:p1a])
w <- bl[p1a+1]
CIF/exp(-data$CH01*exp(data$X2%*%data$gamma1 + data$alpha1%*%b + data$nu1*w)-
data$CH02*exp(data$X2%*%data$gamma2 + data$alpha2%*%b + data$nu2*w)
)
}
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.