Displaying 1 result from an estimated 1 matches for "sig2sigsq".
2011 Mar 03
2
lattice custom axis function -- right side margins
...)), .Names = c("year", "var", "par_set", "sigmasq"), row.names = c(94L,
8L, 20L, 43L, 44L, 68L, 100L, 86L, 2L, 92L, 74L, 80L, 62L, 1L,
82L, 64L, 98L, 37L, 57L, 56L, 59L), class = "data.frame")
sigsq2sig <- 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.ax...