r - ランダム フォレスト データを使用した ROC 曲線が正しく表示されない

Question

ランダムフォレストデータを使用してROC曲線をプロットしようとしています:

mdl <- randomForest(QdataTrainX, QdataTrainY)
m<-predict(mdl,QdataTestX)
OOB.x <- predict (mdl,QdataTrainX,type="prob");
OOB.pred <- OOB.x[,2];
pred.obj <- prediction (OOB.pred,QdataTrainY);
RP.perf <- performance(pred.obj, "rec","prec");
plot  (RP.perf@alpha.values[[1]],RP.perf@x.values[[1]],type="l",ylim=c(0,1));

ここに私のROC曲線があります:

公開されているデータを使用しています

テスト データ - https://docs.google.com/file/d/0B0iDswLYaZ0zVENwUUhENnhZeTg/edit?usp=sharing トレーニング データ - https://docs.google.com/file/d/0B0iDswLYaZ0zdXN6UzU3Y3pPUEU/edit?usp=sharing

、彼らが示す ROC 曲線は原点を通過します。

これにより、どこかでパラメーターを誤用していると思います。誰かが私のコードに何か問題があるのを見ることができますか?