1 | createWeightsList(targets, value = "Scotland")
|
targets |
|
value |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ##---- 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 (targets, value = "Scotland")
{
targets <- targets[!is.na(targets[, value]), ]
createSubGroup <- function(table.choice) {
subtarget <- targets[targets$table == table.choice, ]
sub <- subtarget[, value]
names(sub) <- subtarget$group
return(sub)
}
all.tables <- unique(targets$table)
overall.targets <- lapply(all.tables, createSubGroup)
names(overall.targets) <- all.tables
return(overall.targets)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.