data(math)
g1 <- ~me:ve:al+al:st:an
m1 <- rcox(gm=g1, data=math)
join1(m1)
gm = ~al:an:st
vcc = list(~me+st, ~ve+an)
ecc = list(~me:ve+me:al, ~ve:al+al:st)
m2 <- rcox(gm=gm, vcc=vcc, ecc=ecc, data=math, type="rcon")
split1(m2)
Run the code above in your browser using DataLab