# NOT RUN {
data(faux.mesa.high)
fmh.ego <- as.egodata(faux.mesa.high)
(mm <- mixingmatrix(faux.mesa.high,"Grade"))
(mm.ego <- mixingmatrix(fmh.ego,"Grade"))
stopifnot(isTRUE(all.equal({tmp<-unclass(mm$matrix); diag(tmp) <- diag(tmp)*2;
tmp}, mm.ego, check.attributes=FALSE)))
# }
Run the code above in your browser using DataLab