## Not run:
# data(mdrr)
# set.seed(90)
# inTrain <- createDataPartition(mdrrClass, p = .5)[[1]]
#
# trainData <- mdrrDescr[inTrain,1:20]
# testData <- mdrrDescr[-inTrain,1:20]
#
# trainY <- mdrrClass[inTrain]
# testY <- mdrrClass[-inTrain]
#
# ctrl <- trainControl(method = "cv")
#
# nbFit1 <- train(trainData, trainY, "nb",
# trControl = ctrl,
# tuneGrid = data.frame(usekernel = TRUE, fL = 0))
#
# nbFit2 <- train(trainData, trainY, "nb",
# trControl = ctrl,
# tuneGrid = data.frame(usekernel = FALSE, fL = 0))
#
#
# models <- list(para = nbFit2, nonpara = nbFit1)
#
# predProbs <- extractProb(models, testX = testData, testY = testY)
#
# plotClassProbs(predProbs, useObjects = TRUE)
# plotClassProbs(predProbs,
# subset = object == "para" & dataType == "Test")
# plotClassProbs(predProbs,
# useObjects = TRUE,
# plotType = "densityplot",
# auto.key = list(columns = 2))
# ## End(Not run)
Run the code above in your browser using DataLab