if (FALSE) {
# 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")
})
}
Run the code above in your browser using DataLab