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