Displaying 1 result from an estimated 1 matches for "findcex".
Did you mean:
cindex
2012 Sep 02
2
Impact of cex changing as a function of mfrow
...hone: 1-866-PLessThan (1-866-753-7784)
Fax: 1-866-PLessThan (1-866-753-7784)
www.PLessThan.com
# In a layout with exactly two rows and columns the base value of ?"cex"? is reduced by a factor of 0.83: if
# there are three or more of either rows or columns, the reduction factor is 0.66.
FINDCEX <- function()
{
CORRECT <- 1
MFROW <- par()$mfrow
MFCOL <- par()$mfcol
TEST <- all(MFROW == MFCOL)
if (TEST && MFROW == c(2,2)) CORRECT <- 1 / 0.83
if (TEST && (MFROW[1] >= 3 | MFROW[2] >= 3)) CORRECT <- 1 / 0.66
if (!TEST) cat("MFROW do...