聚集體功能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)