1 |
... |
|
vname |
|
oname |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- 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 (..., vname = ".type", oname = ".order")
{
z <- list(...)
for (ii in 1:length(z)) {
z[[ii]][, vname] <- rep(ii, nr <- nrow(z[[ii]]))
z[[ii]][, oname] <- 1:nr
}
ret <- z[[1]]
for (ii in 2:length(z)) ret <- merge(ret, z[[ii]], all = T)
ret[order(ret[[vname]], ret[[oname]]), ]
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.