1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
test_that("classif_sda", {
requirePackagesOrSkip("sda", default.method = "load")
capture.output({
m = sda::sda(as.matrix(dropNamed(multiclass.train, multiclass.target)),
multiclass.train[, multiclass.target])
p = sda::predict.sda(m, as.matrix(dropNamed(multiclass.test,
multiclass.target)))
})
testSimple("classif.sda", multiclass.df, multiclass.target,
multiclass.train.inds, p$class)
testProb("classif.sda", multiclass.df, multiclass.target,
multiclass.train.inds, p$posterior)
})
|
