1 | regunstack(x, grp, xcols, ycol)
|
x |
|
grp |
|
xcols |
|
ycol |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- 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, grp, xcols, ycol)
{
x = elimna(x)
val = sort(unique(x[, grp]))
xs = list()
ys = list()
for (i in 1:length(val)) {
flag = (x[, grp] == val[i])
xs[[i]] = x[flag, xcols]
ys[[i]] = x[flag, ycol]
}
list(num.grps = length(val), x = xs, y = ys)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.