Displaying 1 result from an estimated 1 matches for "cexn".
Did you mean:
cex
2012 Sep 24
1
Question lattice SplomT
...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(~data, as.matrix = TRUE, main = mainL, xlab = xlabL,
upper.panel = function(x, y, breaks = NULL, ...) {
minS <- 0.05
ccr <- cor(x, y, use = "complete.obs")
ccq <- sqrt(max(abs(ccr), minS))
if (is.na(ccr)) {ccr <- 0; ccq <...