R/OOBIndex.R

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

Any scripts or data that you put into this service are public.

adabag documentation built on Jan. 20, 2018, 9:04 a.m.