tests/anova-svycoxph.R

 library(survey)
example(svycoxph, ask=FALSE)
m<-update(model, .~.+I(protime^2))
a<-anova(m,model)
b<-anova(m, model,force=TRUE)
stopifnot(isTRUE(all.equal(b[2:6],a[c(3,4,6,7,8)])))

Try the survey package in your browser

Any scripts or data that you put into this service are public.

survey documentation built on May 3, 2023, 9:12 a.m.