context('Test BIASEDSVM')
# require(devtools)
# require(testthat)
################################################################################
### method
method <- 'biasedsvm'
################################################################################
### data
dt <- threeGaussians()
u <- dt$te[,-1]
seed <- 123456
tr.x <- dt$tr[, -1]
tr.y <- puFactor(dt$tr[, 1], 1)
set.seed (seed)
te.x <- dt$te[,-1]
te.y <- dt$te[,1]
## ----------------------------------------------------------------------------
### set up a small grid which leads to a over and underfitted
# sigest(as.matrix(tr.x[tr.y=='pos', ]))
tuneGrid = expand.grid(sigma=c(.01, 100),
cNeg=c(1, 10),
cMultiplier=c(1, 10) )
### change something in inst/models/ocsvm and run the following two lines to get the changes
### source("inst/models/parseModels.R")
### load_all()
oc <- trainOcc ( x = tr.x, y = tr.y,
method=method, tuneGrid=tuneGrid)
oc
#plot(oc, plotType='level')
#plot(oc)
featurespace(update(oc, modRow=2), th=0)
featurespace(update(oc, modRow=8), th=0)
expect_true(oc$results$tpr[2]>oc$results$tpr[8])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.