Displaying 1 result from an estimated 1 matches for "datiepheno".
2004 Sep 14
1
pairs correlations colors
..."brown","orange")[aggiunta[,7]],upper.panel=panel.cor)
dev.off()
doesn't allow me to get the desidered matrix with colors and
correlations.
I also tried to create a function panel.col for the lower.panel:
## put colors on the lower panels
panel.col <- function(datiepheno)
{
usr <- par("usr"); on.exit(par(usr))
par(bg = c("red", "green3", "blue",
"brown","orange")[datiepheno[,7]],pch=21, usr = c(0, 1, 0, 1))
}
but it doesn't work as well.
Any idea?
I hope I'll be p...