[R] Joint test

[Hein Goemans]

Dear All,

I am estimating a Cox proportional hazard model, with several interactions 
of the type a*z + a*y + a*x + b*z + b*y + b*x.

I need to know if the first three (the "a"s) are jointly significantly 
different from the last three (the "b"s). I have tried several approaches, 
but have been unsuccessful.

Here's the model, and the code I came up with, with the obvious 
shortcomings.


modelPG2 <- coxph(Surv(t0, t, d)  ~ civilian + monarch + txmonarch
                               + civwar  + lngdpcap + growth
                               + tropen4 +  dopen4
                               + lnpop
                               + age0 + entry1 +  powtimes
                               + initiator2 + defender2 + inherit
                               + milwinsh + millosesh + mildrawsh + 
milwinwar + millosewar + mildrawwar
                               + civwinsh + civlosesh + civdrawsh + 
civwinwar + civlosewar + civdrawwar
                               + monwinsh + monlosesh + mondrawsh + 
monwinwar + monlosewar + mondrawwar
                               + frailty(ccode), na.action=na.exclude, 
data=LeaderPG.data,
 
control=coxph.control(eps=1e-09,iter.max=100,outer.max=100))

library(aod)

# To test if Military Leaders are equally sensitive to the outcome of WAR 
as Civilian leaders we need a JOINT test.
wald.test(b=coef(modelPG2), Sigma = vcov(modelPG2), Terms= c(19:21), 
H0=c(-2.9101, 2.4028, -1.6504))

#wald.test(b=coef(modelPG2), Sigma = vcov(modelPG2), Terms= c(19:21), 
H0=c(0, 2.4028, 0))

wald.test(b=coef(modelPG2), Sigma = vcov(modelPG2), Terms= c(25:27), 
H0=c(-8.2330,2.3041,-0.2626))

Any help would be very much appreciated.

Hein Goemans.