context("OptimSVM")
test_that("Test SVM with Australian Credit", {
modelFit <- Optim.SVM(Y~., AustralianCredit, p = 55, seed=2018)
expect_equal(class(modelFit), "Optim")
#Print
print(modelFit)
print(modelFit, plain=TRUE)
expect_equal(summary(modelFit)$kernel,2 )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.