AUCRF 包：
AUC.randomForest <- function(rf, clase = 1) {
                     r <- rank(rf$votes[, as.character(clase)])
                     rd <- mean(r[rf$y == clase])
                     nd <- sum(rf$y == clase)
                     nnd <- length(rf$y) - nd
                     return((rd - nd/2 - 0.5)/nnd)
                   }
         while (k >= k0) {
                     fitRF <- randomForest(formula, data = data[, c(yname,
                                                                    vars[1:k])], ...)
                     getAUC <- AUC.randomForest(fitRF)     

randomForest 包：


查看
randomForest:::randomForest.default


randomForest=function(......
      out.votes <- t(matrix(rfout$counttr, nclass, nsample))[1:n,  ]
if (norm.votes)

            out.votes <- t(apply(out.votes, 1, function(x) x/sum(x)))
class(out.votes) <- c(class(out.votes), "votes")
out <- list(call = cl, type = if (addclass) "unsupervised" else "classification",
            predicted = if (addclass) NULL else out.class, err.rate = if (addclass) NULL else t(matrix(rfout$errtr,
                nclass + 1, ntree, dimnames = list(c("OOB", levels(y)),
                  NULL))), confusion = if (addclass) NULL else con,

            votes = out.votes, oob.times = oob.times, classes = levels(y), ....)
class(out)<-"randomForest"


methods(print.randomForest)
randomForest:::print.randomForest



数据的结构一环扣一环的，慢慢看吧。自虐了一回，希望有帮助

我运用AUCRF这个函数出现了下面的问题，所以……

> tw<-read.csv("www.csv", header=T)
> fit <- AUCRF(class~., data=tw)
错误于rf$votes[, as.character(clase)] : 下标出界
>
对数据tw进行随机森林建模是rf<-randomForest(class ~ ., tw, importance=TRUE)

不太理解这两个，这里的AUC.randomForest是AUCRF函数？？还有clase = 1这个什么意思？下面as.character(clase)是将clase这个参数设置成字符类型，那么clase这是一个参数，这个参数在哪里

rf$votes[, as.character(clase)]这个的意思是？像rf$votes[2,3]我知道指的是矩阵第二行第三列的一个元素，那么rf$votes[, as.character(clase)]是什么意思