r-Rstudio:优势分析脚本疑难解答

Question

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

"如果(class(userDat(=="；data.frame"(｛：条件的长度>1〃；

我已经能够通过"；硬编码"；所有的"；模拟的默认值"；，但我只能运行未校正的分析。

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

非常感谢您的帮助！

Answer 1

class可以返回具有多个条目的向量，例如：

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

然后CCD_ 2内部的条件将具有长度>1:

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

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

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

或

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