# \donttest{
data(LL)
set.seed(123)
sp1 <- spacegraph("treated", LL, drop="re78", M=5,
R=list(cem=5,psm=5, mdm=0))
## Note that we must use the same L1 measure from the first spacegraph!
sp2 <- spacegraph("treated", LL, drop="re78", raw.profile=sp1$raw.profile,
R=list(cem=0,psm=0, mdm=5))
sp3 <- combine.spacegraphs(sp1,sp2)
plot(sp3)
# }
Run the code above in your browser using DataLab