# NOT RUN {
## Beta Process Example 1
# data(psych)
# timesP <- psych$time
# deltaP <- psych$death
# BEX1 <- BeMRes(timesP, deltaP, iterations = 3000)
# BePloth(BEX1, confint = FALSE)
# BePloth(BEX1, fun = "both", confint = TRUE)
# }
Run the code above in your browser using DataLab