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