Displaying 1 result from an estimated 1 matches for "crho".
Did you mean:
creo
2005 Apr 22
1
Expression in panel.text
...orrelation
coefficients and p values on each panel. I've been trying to get this
to work using something of the form:
x <- rnorm(400)
y <- rnorm(400)
a <- gl(4, 100)
xyplot(y~x | a,
panel=function(x,y, ...){
panel.xyplot(x,y, ...)
curr.cor <- cor.test(x,y)
crho <- round(curr.cor$estimate,2)
cpv <- format.pval(curr.cor$p.value, eps = 0.01, digits=2)
exprrho <- substitute(rho == crho, list(crho=crho))
exprpv <- substitute(italic(p) == cpv, list(cpv=cpv))
panel.text(-2, 2, label=exprrho)
panel.tex...