Attention: the list was moved to
https://github.com/dypsilon/frontend-dev-bookmarks
This page is not maintained anymore, please update your bookmarks.
| vioplot2 <- function (x, ..., range = 1.5, h = NULL, ylim = NULL, names = NULL, | |
| horizontal = FALSE, col = "magenta", border = "black", lty = 1, | |
| lwd = 1, rectCol = "black", colMed = "white", pchMed = 19, | |
| at, add = FALSE, wex = 1, drawRect = TRUE, side="both") | |
| { | |
| datas <- list(x, ...) | |
| n <- length(datas) | |
| if (missing(at)) | |
| at <- 1:n | |
| upper <- vector(mode = "numeric", length = n) |
Attention: the list was moved to
https://github.com/dypsilon/frontend-dev-bookmarks
This page is not maintained anymore, please update your bookmarks.