data(math)
gc.sat <- ~me:ve:al:st:an
gc.1 <- ~me+ve+al+st+an
m.sat <- rcox(gm=gc.sat, data=math)
m.1 <- rcox(gm=gc.1, data=math)
t.sat <- drop1(m.sat)
t.sat$tab
t.sat$cc
t.1 <- add1(m.1)
t.1$tab
t.1$cc
Run the code above in your browser using DataLab