R：查找为S4插槽生成输出的源代码？

大家好

当“lme4”中的“lmer”函数运行时，它会生成一个包含大量插槽的S4对象。我对其中一个插槽感兴趣，即model@X，以及如何生成此“X”插槽输出。我想尝试为我正在使用的不同模型函数（glmmPQL）复制此输出，该函数不会自动生成此“X”输出（FYI“lmer”生成类为“mer”的对象，插槽“X”是固定效果的模型矩阵）下面的代码显示了我所说的内容。

我想弄清楚的是，这些数据是如何产生的？我在没有“（）”的终端上写下了“lmer”的代码，但在那里找不到任何东西。我还尝试了showMethod（'lmer'），但它显示函数'lmer'：

只是想知道是否有一种方法可以获取“X”插槽（或S4对象中的任何插槽）的源代码？或者有人知道如何复制这个吗？非常感谢你的帮助和时间

    library(lme4)
    # here is a quick example of what I am looking at using the cake dataset in the 'lme4' package
    m <- lmer(cakeglmm<- lmer(angle ~ temp + recipe + (1| replicate), family = gaussian, data = cake)

    slotNames(m)
    head(m@X)

库（lme4）
#下面是我在“lme4”包中使用cake数据集的一个快速示例
m您通过打印
lmer
开始时一切正常。这不会告诉您
m@X设置了
，但您可以看到

lmer调用了哪些方法

可以使用

lme4:：：methodName

访问

lmer

中的方法

如果你看一下里面的

lme4:：：lmer_finalize

，你会看到（意译）：

---

通过打印

lmer

，您开始时一切正常。这不会告诉您

m@X设置了

，但您可以看到lmer调用了哪些方法

可以使用

lme4:：：methodName

访问

lmer

中的方法

如果你看一下里面的

lme4:：：lmer_finalize

，你会看到（意译）：

---

您可以在CRAN获得每个R包（包括core）的源代码。您可以在CRAN获得每个R包（包括core）的源代码。

ans <- new(Class = "mer", ..., X = fr$X, ...)

X <- if (!is.empty.model(mt)) 
    model.matrix(mt, mf, contrasts)
else matrix(, NROW(Y), 0)