createWeightsList: Internal targets formatting function
In jon-mellon/weightBES: Raking weights for BES Internet panel

1	createWeightsList(targets, value = "Scotland")

`targets`
`value`

##---- 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)
  }