Displaying 1 result from an estimated 1 matches for "pretty_sigmasq".
2011 Mar 03
2
lattice custom axis function -- right side margins
...g <- function(sigmasq) sqrt(2 * sigmasq)
sig2sigsq <- function(sig) 0.5 * (sig)^2
# axis method to add a std deviation axis to the right side of a sill plot
axis.sigmasq <- function(side, ...) {
switch(side,
left = {
ylim <- current.panel.limits()$ylim
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...