Displaying 1 result from an estimated 1 matches for "colxony".
Did you mean:
colony
2012 Sep 24
1
Question lattice SplomT
...test purposes only")
@
<<A,fig=TRUE>>=
SplomT <- function (data, mainL = deparse(substitute(data)), xlabL = "",
hist = "h", adjust = 1, hist.col = trellis.par.get("strip.background")$col[5], cex.diag = 1, h.diag=0.4, colYonX = "red", colXonY = "blue", ...) {
stopifnot (hist %in% c("h", "d", "b"))
data <- data.frame(data)
mxnam <- max(nchar(names(data)))
lnam <- ncol(data)
ce <- 100*cex.diag*get.gpar()$cex/lnam
cexd <- ce/mxnam
cexn <- ce/5
print(splom(~da...