Displaying 1 result from an estimated 1 matches for "exprrho".
2005 Apr 22
1
Expression in panel.text
...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.text(2, 2, label=exprpv)
})
The two expressions (expprho and exprpv) plot as expected on a normal
text() call bu...