# generate data
train <-classDataGen(noInst=200)
cal <-classDataGen(noInst=200)
# build random forests model with certain parameters
modelRF <- CoreModel(class~., train, model="rf", selectionEstimator="MDL",minNodeWeight=5,rfNoTrees=100)
# prediction
pred <- predict.CoreModel(modelRF, cal, rfPredictClass=FALSE)
# calibrate for a chosen class1 and method
class1<-1
calibrate(cal$class, pred$prob[,class1], class1=1, method="binning", noBins=5)
Run the code above in your browser using DataLab