if (requireNamespace("iNZightPlots")) {
require(iNZightPlots)
mr <- iNZightMR(online ~ onlinegame + onlinevideo + onlinemusic,
data = census.at.school.5000
)
barplotMR(mroPara(mr))
barplotMR(byMRO(mr, ~gender, mroPara))
}
Run the code above in your browser using DataLab