## Not run:
# ## Using the Alea.A dataset
# data(Alea.A)
# x <- Alea.A
# ## Critical crack length
# aF <- 1.6
# ## Censoring time
# T_c <- 0.12
# ## cracks.growth function applied to Alea.A data
# cg <- cracks.growth (x, aF, T_c, method = c("SEP-lme_bkde", "SEP-lme_kde",
# "PB-nlme"), nBKDE = 5000, nKDE = 5000, nMC = 5000)
# ## cracks.growth values using the "SEP-lme_bkde" by default method.
# names(cg)
# # [1] "data" "a.F" "Tc" "param" "crack.est"
# # [6] "sigma" "residuals" "crack.pred" "F.emp" "bw"
# #[11] "F.est" "nBKDE"
# ## End(Not run)
Run the code above in your browser using DataLab