Revision ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC, committed by cran-robot on 28 October 2020, 07:59:48 UTC
1 parent 698183c
dropFormula.R
dropFormula <- function(original, drop) {
factors <- attr(terms(as.formula(original)),
"factors")
row <- match(drop, rownames(factors))
whichTerms <- factors[row,] == 1
labels <- colnames(factors)[whichTerms]
text <- paste("~ . ",
paste("-", labels, collapse = " "))
eval(parse(text = text))
}
Computing file changes ...