# NOT RUN {
data(adapt_duser)
res<-BCA1SG_interval_censor(adapt_duser, initial_beta = rep(0,2), threshold = 5e-3)
res$est_beta
res$iteration
res$timecost
plot(res$distinct_time,res$est_Lambda,type="s",lwd=3,
xlab="time",ylab="Baseline cumulative hazard function")
# }
Run the code above in your browser using DataLab