library(survival)
data(ovarian)
#############################################
# Tests for H_0: beta = 0 for both age and rx covariates
testscore(formula=futime+fustat~age+rx,data=ovarian)
#############################################
# Tests for H_0: beta= maximum partial likelihood estimator of beta in the Cox model
beta_cox=coxph(Surv(futime,fustat)~ age+rx,data=ovarian)$coeff
testscore(formula=futime+fustat~age+rx,data=ovarian,beta0=beta_cox)
Run the code above in your browser using DataLab