powered by
sco.quant (score, df, fac = NULL, clabel = 1, abline = FALSE, sub = names(df), csub = 2, possub = "topleft")
par("cex")*clabel
par("cex")*csub
w <- runif(100, -5, 10) fw <- cut (w, 5) levels(fw) <- LETTERS[1:5] wX <- data.frame(matrix(w + rnorm(900, sd = (1:900) / 100), 100, 9)) sco.quant(w, wX, fac = fw, abline = TRUE, clab = 2, csub = 3)
Run the code above in your browser using DataLab