tests/testthat/test_dcSVM.R

require(SwarmSVM)

context("dcSVM")

data(svmguide1)
svmguide1.t = svmguide1[[2]]
svmguide1 = svmguide1[[1]]

data(iris)

test_that("Error Trigger",{
  expect_error({
    model = dcSVM(x = as.matrix(iris[,-5]), y = iris[, 5], m = 100, k = 2, max.levels = 1)
  })
  
  expect_error({
    model = dcSVM(x = as.matrix(iris[,-5]), y = iris[, 5], m = 100, max.levels = 1, k = 100)
  })
  
  expect_error({
    model = dcSVM(x = as.matrix(iris[,-5]), y = iris[, 5], m = 100, k = 1, max.levels = 1)
  })
  
})

test_that("Performance",{
  dcsvm.model = dcSVM(x = svmguide1[,-1], y = svmguide1[,1],
                      k = 4, max.levels = 4, seed = 0, cost = 32, gamma = 2,
                      kernel = 3,early = 0, m = 800, pre.scale = TRUE,
                      valid.x = svmguide1.t[,-1], valid.y = svmguide1.t[,1])
  score = dcsvm.model$valid.score
  expect_true({score>0.9})
  
  dcsvm.model = dcSVM(x = as.matrix(svmguide1[,-1]), y = svmguide1[,1], k = 10, max.levels = 1, 
                      early = 1, gamma = 2, cost = 32, tolerance = 1e-2, m = 800, 
                      pre.scale = TRUE,
                      valid.x = svmguide1.t[,-1], valid.y = svmguide1.t[,1])
  score = dcsvm.model$valid.score
  expect_true({score>0.9})
})

Try the SwarmSVM package in your browser

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

SwarmSVM documentation built on Dec. 28, 2022, 1:24 a.m.