我正在尝试建立一个模型验证工具,我正在遵循前向选择方法,所以如果我们假设我的模型是
model <- y ~ a * b + c * d + e
我可以使用terms
功能
attributes(terms(model))$term.labels
找出我模型中的所有预测变量,但这种方法的问题是交互项总是放在结果的末尾。我希望a:b
在a
和b
之后,而不是在最后,同样适用于c:d
。有没有办法让订单与交互条款保持一致?
答案 0 :(得分:9)
最简单的方法是在terms.formula()
model <- y ~ a * b + c * d + e
labels(terms(model, keep.order = TRUE))
# [1] "a" "b" "a:b" "c" "d" "c:d" "e"
?terms.formula
要查找帮助文件,您需要使用?terms
,因为terms()
中未显示此方法。但labels()
将调度到公式方法。此外,terms()
是从onView(allOf(withText("your_substring"), withParent(withId(R.id.element_id_here))));
获取术语标签的简便方法。