[R] Error : unused arguments in pairs()

[Prof Brian Ripley]

Your panel function should have a ... argument: see the help page for 
pairs().  Since your example is not 'self-contained' I cannot test this 
out ....

On Sun, 4 Jan 2009, herwig wrote:

>
> 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.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595