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