パッケージrfcv
内の関数を使用しようとしています。randomForest
次のようなエラーメッセージが表示されます。
> rfcv1 <- rfcv(x[1:18750,], testClass[1:18750], cv.fold=2)
Error in cut.default(trainy, c(-Inf, quantile(trainy, 1:4/5), Inf)) :
'breaks' are not unique
> nrow(unique(x[1:18750,]))
[1] 18719
> length(unique(testClass[1:18750])) ## just 0's and 1's
[1] 2
> head(x)
rfPred prediction
3 0.34776664 0.30138045
5 0.22345507 0.11159273
7 0.03478699 0.02156816
17 0.01008994 0.01071626
24 0.01738253 0.01546157
25 0.01143016 0.01278491
> range(x)
[1] 0.003907361 0.966005867
何かがおかしいと思われますか?一意の値が5で割り切れるようにデータを縮小しようとしましたが、それでも同じメッセージが表示されます。cv.fold=
また、効果なしでいろいろな値を試してみました。