search for: rangy1

...)) col <- match(col, palette()) col <- c(col, col + 1) } else if (length(col) == 1) col <- c(col, col) unsigned.range <- function(x) c(-abs(min(x)), abs(max(x))) rangx1 <- unsigned.range(x[, 1]) rangx2 <- unsigned.range(x[, 2]) rangy1 <- unsigned.range(y[, 1]) rangy2 <- unsigned.range(y[, 2]) if (missing(xlim) && missing(ylim)) xlim <- ylim <- rangx1 <- rangx2 <- range(rangx1, rangx2) else if (missing(xlim)) xlim <- rangx1 else ylim <- rangx2 ratio <- max(r...

Hello, Something incredible (at least for me) has happen. Yesterday night I downloaded biplot.R to edit this function and add new features I wished. Namely I wanted to plot points belonging to different groups using different colors and symbols. I identified which part of the original code I had to modify. Then, I rename biplot by biplotes and executing biplotes(x), being x a princomp class