fo <- a ~ b + c
abc <- formula2string(fo) # $left: "a" $right: "b+c"
str2formula(abc) # a ~ b + c
term.names2formula(formula2term.names(fo,"left"),c(formula2Rterm.names(fo),"X")) # a ~ b + c + X
formula2string(a ~ b + c) # $left: "a" $right: "b+c"
formula2string(~ b + c) # $left: "" $right: "b+c"
formula2string(a ~ .) # $left: "a" $right: "."
formula2term.names(a ~ b1 + c,"left") # "a"
formula2Rterm.names(a ~ b1 + c) # "b1" "c"
Run the code above in your browser using DataLab