context("plotViperCharts")
test_that("plotViperCharts", {
skip_on_cran()
skip_if_not(RCurl::url.exists("http://viper.ijs.si/api/"), message = "viper API not reachable")
lrn1 = makeLearner("classif.rpart", predict.type = "prob")
lrn2 = makeLearner("classif.lda", predict.type = "prob")
lrns = list(lrn1, lrn2)
m = train(lrn1, binaryclass.task)
p = predict(m, binaryclass.task)
plotViperCharts(p, browse = FALSE)
br = benchmark(lrn2, binaryclass.task, resampling = makeResampleDesc("Holdout"))
plotViperCharts(p, browse = FALSE)
rs = lapply(lrns, holdout, task = binaryclass.task)
names(rs) = c("a", "b")
plotViperCharts(rs, browse = FALSE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.