Nothing
HelpShiftsPPn <- function(t,timevec,lambdavec,muvec,rho=1,survival=1,root=1){
out<- 0+root*(-log(length(t)))
for (i in 2:length(t)){
out<-out+log(Fderifuncshift(t[i],timevec,lambdavec,muvec,rho))+log(Ffuncshift(t[1],timevec,lambdavec,muvec,rho))-log(Ffuncshift(t[1],timevec,lambdavec,muvec,rho)-1)
}
out
}
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.