swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: 635622b024294f87a1442a50ad662642f5586aa7 authored by jmc on 14 July 2008, 00:00:00 UTC
version 1.0-4
version 1.0-4
Tip revision: 635622b
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))
}