R delete.response 修改术语对象

说明

delete.response 返回同一模型的 terms 对象，但没有响应变量。

drop.terms 从模型右侧删除变量。还有一个 "[.terms" 方法来执行相同的函数(使用 keep.response = TRUE )。

reformulate 从字符向量创建公式。如果是 length(termlabels) > 1 ，则其元素与 + 连接。非语法名称(例如包含空格或特殊字符；请参阅 make.names )必须用反引号保护(请参阅示例)。非 parse 能力的 response 目前仍然可以工作，兼容地返回，并带有弃用警告。

用法

delete.response(termobj)

reformulate(termlabels, response = NULL, intercept = TRUE, env = parent.frame())

drop.terms(termobj, dropx = NULL, keep.response = FALSE)

参数

termobj	terms 对象
termlabels	给出模型公式右侧的特征向量。长度不能为零。
response	给出模型公式左侧的字符串、符号或调用，或 NULL 。
intercept	逻辑：公式应该有截距吗？
env	返回formula 的environment。
dropx	从模型右侧删除的变量位置向量。
keep.response	将响应保留在结果对象中？

值

delete.response 和 drop.terms 返回 terms 对象。

reformulate 返回 formula 。

例子

ff <- y ~ z + x + w
tt <- terms(ff)
tt
delete.response(tt)
drop.terms(tt, 2:3, keep.response = TRUE)
tt[-1]
tt[2:3]
reformulate(attr(tt, "term.labels"))

## keep LHS :
reformulate("x*w", ff[[2]])
fS <- surv(ft, case) ~ a + b
reformulate(c("a", "b*f"), fS[[2]])

## using non-syntactic names:
reformulate(c("`P/E`", "`% Growth`"), response = as.name("+-"))

x <- c("a name", "another name")
tryCatch( reformulate(x), error = function(e) "Syntax error." )
## rather backquote the strings in x :
reformulate(sprintf("`%s`", x))

stopifnot(identical(      ~ var, reformulate("var")),
          identical(~ a + b + c, reformulate(letters[1:3])),
          identical(  y ~ a + b, reformulate(letters[1:2], "y"))
         )

也可以看看

terms