Rstudio：排除优势分析脚本

Question

我一直试图让这个优势分析运行https://supp.apa.org/psycarticles/supplemental/apl0000361/Supplemental-Material.zip，但我一直得到这个：

“if (class(userDat) == "data.frame") { 中的错误： 条件长度 > 1"

我已经能够通过“硬编码”所有“模拟的默认值”来运行脚本，但是我只能运行未更正的分析。

我怀疑 if-else 语句有问题，但到目前为止我还没有解决它。我尝试使用包含真实观察结果的 data.frame 对象和观察数据中的相关矩阵。

任何帮助深表感谢！

Answer 1

class 可以返回一个包含多个条目的向量，例如：

> userDat = tibble::tibble()
> class(userDat)
[1] "tbl_df"     "tbl"        "data.frame"

然后if() 中的条件长度> 1：

> class(userDat) == "data.frame"
[1] FALSE FALSE  TRUE

因此，您可以将条件修改为：

> any(class(userDat) == "data.frame")
[1] TRUE

或者

> "data.frame" %in% class(userDat)
[1] TRUE