R/util.R

In zmjones/fanova: Functional ANOVA Decomposition of Prediction Functions

getSubsets = function(elements, proper = TRUE) {
  ret = lapply(0:(length(elements) - ifelse(proper, 1, 0)),
    function(m) combn(elements, m))
  unlist(ret, FALSE)
}

cast = function(x, class) {
  switch(class,
    "integer" = as.integer(x),
    "numeric" = as.numeric(x),
    "factor" = as.factor(x),
    "ordered" = as.ordered(x))
}