# NOT RUN {
library(survival)
data(stanford2)
fit1<-lss(cbind(log10(time),status) ~ age + t5,data=stanford2,subset=!is.na(t5), mcsize=100,
trace=TRUE,gehanonly=FALSE,maxiter=10,tolerance=0.001)
fit2<-lss(cbind(log10(time),status) ~ age + I(age^2),data=stanford2,subset=!is.na(t5)&time>=100,
mcsize=5,trace=TRUE, gehanonly=FALSE,cov=TRUE)
# }
Run the code above in your browser using DataLab