Displaying 1 result from an estimated 1 matches for "pos_sigmasq".
2011 Mar 03
2
lattice custom axis function -- right side margins
...pretty_sigmasq <- pretty(ylim)
panel.axis(side = side, outside = TRUE,
at = pretty_sigmasq, labels = pretty_sigmasq)
},
right = {
ylim <- current.panel.limits()$ylim
pretty_sigmasq <- pretty(ylim)
pos_sigmasq <- pretty_sigmasq[pretty_sigmasq >= 0]
pretty_sigma <- pretty(sigsq2sig(pos_sigmasq))
panel.axis(side = side, outside = TRUE,
at = sig2sigsq(pretty_sigma),
labels = pretty_sigma)
},
axis.default(side = side...