Nothing
#'Plot group1 statistics
#'
#'Plots group1 statistics using matplot
#'@param x a matrix of group1 staistics
#'@param ... additional arguments passed to matplot
#'@export
`plotGroup1` <-
function (x, ...)
{
matplot(1:ncol(x), t(x), xaxt = "n", ylab = "Average Discharge",
...)
axis(1, at = 1:ncol(x), labels = dimnames(x)[[2]])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.