add testthat

imbs-hl · Jun 14, 2017 · 25f0394 · 25f0394
1 parent 6aba05e
commit 25f0394
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0  1,4 @@
 library(testthat)
 library(survivalsvm)
 
 test_check("survivalsvm")
diff --git a/tests/testthat/test_simple.R b/tests/testthat/test_simple.R
@@ -0,0  1,7 @@
 
 
 svm <- survivalsvm(Surv(time, status) ~ ., veteran, gamma.mu = 0.1)
 
 test_that("survival svm returns class survivalsvm", {
   expect_is(svm, "survivalsvm")
 })