R/OOBIndex.R

In adabag: Applies Multiclass AdaBoost.M1, SAMME and Bagging

Defines functions OOBIndex

Documented in OOBIndex

OOBIndex <-
function(mySample)
{ # return the oob sample,  return vector length=n, if i == 1 , OOB else nonOOB
    n_data<-length(mySample)
    myOOB<-rep(1,n_data)
    myOOB[mySample]<-0
    myOOB<-which(myOOB==1)

   output<-myOOB
}

Try the adabag package in your browser