## Not run:
# # Radiocarbon dating data
#
# with(radioc, {
# ind <- (Cal.age>5000 & Cal.age<6000)
# cal.age <- Cal.age[ind]
# rc.age <- Rc.age[ind]
# sm.monotonicity(cal.age, rc.age, method = "aicc", nboot = 200)
# })
#
# # Hosmer & Lemeshow birth data
#
# with(birth, {
# sm.monotonicity(Lwt[Smoke == "N"], Low[Smoke == "N"],
# type = "binomial")
# })
# ## End(Not run)
Run the code above in your browser using DataLab