tests/testthat/test_base_plotViperCharts.R

In Najah-lshanableh/R-data-mining2: Machine Learning in R

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)
})