# NOT RUN {
if(require(marray)){
data(swirl)
# }
# NOT RUN {
<!-- %% the following had 'newpage = FALSE, ' -- why ?? -->
# }
# NOT RUN {
hb <- plotMAhex(swirl[,1], main = "M vs A plot with hexagons", legend=0)
hexVP.abline(hb$plot, h=0, col= gray(.6))
hexMA.loess(hb)
}
# }
Run the code above in your browser using DataCamp Workspace