{
params <- extractParam(mr, x, y)
L = length(params)
# Plot boxplots side by side
par(mfrow=c(1,L), cex.axis=1.5, cex.lab=1.5, mar=c(4.7,5,1,1))
for (i in 1:L)
{
params <- extractParam(mr, x, y)
L = length(params)
# Plot boxplots side by side
par(mfrow=c(1,L), cex.axis=1.5, cex.lab=1.5, mar=c(4.7,5,1,1))
for (i in 1:L)