[R] Error : unused arguments in pairs()

[herwig]

Hi there,

I am just starting in R and this might be a very basic question.
I applied one on the examples of 
pairs()
to my own data. The examples shows scatter plots on one side of the matrix
and the correlation coefficients on the other which works well. I  then
modified it slightly because I want different colors in the plots. Now i am
getting the error of unused arguments, because the color arguments are not
used when the corellation coefficient is printed. 
I would be very greatful if anyone could help me to get rid of this error.


Here my code:

> panel.cor <- function(x, y, digits=2, prefix="", cex.cor)
+ {
+     usr <- par("usr"); on.exit(par(usr))
+     par(usr = c(0, 1, 0, 1))
+     r <- abs(cor(x, y))
+     txt <- format(c(r, 0.123456789), digits=digits)[1]
+     txt <- paste(prefix, txt, sep="")
+     if(missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
+     text(0.5, 0.5, txt, cex = cex.cor * r)
+ }
> pairs(pep[9:18],cex.labels = 0.6, pch = 21, bg = c("red", "blue", "green",
> "yellow","brown")[unclass(pep$taxonomic.position)], lower.panel=panel.cor)

thanks,

Herwig 
-- 
View this message in context: http://www.nabble.com/Error-%3A-unused-arguments-in---pairs%28%29-tp21283398p21283398.html
Sent from the R help mailing list archive at Nabble.com.