Nothing
optim.survival.mle1 <-
function(value, censoring,x, y, param,censor.type){
len<-length(value)
resid <- y - x %*% value[-c((len - 3):len)]
gld.val<-value[c((len - 3):len)]
return(survival.mle(resid,gld.val,param,censoring,censor.type)*-1)
}
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.