Nothing
get.est <-
function(x , data , formula ){
s1<-Surv(time = as.numeric(x) , event = data$right != Inf )
formula1<-formula(paste('s1' , deparse(formula)))
cph1<-coxph(formula1 , data = data)
vc1<-vcov(cph1)
coef1<-cph1$coefficients
return(list( sigma = vc1 , beta = coef1 ))
}
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.