R model.extract 从模型框架中提取组件

说明

返回作为可选参数传递给 model.frame 的模型框架的响应、偏移、子集、权重或其他特殊组件。

用法

model.extract(frame, component)
model.offset(x)
model.response(data, type = "any")
model.weights(x)

参数

frame, x, data	模型框架，请参阅model.frame。
component	文字字符串或名称。要提取的组件的名称，例如 "weights" 或 "subset" 。
type	"any" 、 "numeric" 或 "double" 之一。使用后两者中的任何一个都会强制结果具有存储模式 "double" 。

细节

model.extract是为了与S兼容而提供的，S没有更具体的函数。提取例如glm 拟合的 etastart 和 mustart 组件。

model.extract(m, "offset")和model.extract(m, "response")分别相当于model.offset(m)和model.response(m)。 model.offset 对公式中的 offset 项或生成模型框架的调用中的 offset 参数指定的任何项求和：它确实检查偏移量是否为数字。

model.weights 与 model.extract(, "weights") 略有不同，因为没有命名它返回的向量。

值

模型框架的指定分量，通常是向量。 model.response() 现在删除可能的 "Asis" 类(源自 I(.) )。

如果未指定偏移量，model.offset 返回NULL。

例子

a <- model.frame(cbind(ncases,ncontrols) ~ agegp + tobgp + alcgp, data = esoph)
model.extract(a, "response")
stopifnot(model.extract(a, "response") == model.response(a))

a <- model.frame(ncases/(ncases+ncontrols) ~ agegp + tobgp + alcgp,
                 data = esoph, weights = ncases+ncontrols)
model.response(a)
(mw <- model.extract(a, "weights"))
stopifnot(identical(unname(mw), model.weights(a)))

a <- model.frame(cbind(ncases,ncontrols) ~ agegp,
                 something = tobgp, data = esoph)
names(a)
stopifnot(model.extract(a, "something") == esoph$tobgp)

也可以看看

model.frame , offset