| 1 | 
| x | |
| y | |
| xlab | |
| ylab | |
| eblabx | |
| eblaby | |
| nse | 
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (x, y = NULL, xlab = "X", ylab = "", eblabx = "Groups", 
    eblaby = "", nse = 2) 
{
    if (!is.null(y)) {
        xy = list()
        xy[[1]] = x
        xy[[2]] = y
    }
    if (is.null(y)) {
        if (is.matrix(x)) 
            xy = matl(x)
    }
    par(mfrow = c(2, 2))
    par(oma = c(4, 0, 0, 0))
    ebarplot(xy, xlab = eblabx, ylab = eblaby, nse = nse)
    boxplot(xy)
    g2plot(xy[[1]], xy[[2]])
    sband(xy[[1]], xy[[2]])
    par(mfrow = c(1, 1))
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.