聚集体功能rosnerTest

Question

我得到一个错误

“错误的，如果（任何（异常））{：缺失值，其中TRUE/FALSE需要” 当我尝试使用rosnerTest，从包装EnvStats 。

out1 <- aggregate(x = df$Price, by = list(df$Item), FUN = rosnerTest) 

我试图使用聚合函数代替使用循环做罗斯纳测试，因为我的数据有超过14万条记录约3万的独立项目。

Answer 1

尝试tapply代替：

out1 <- tapply(df$Price, df$Item, rosnerTest)