#
# test_that("classif_rrlda", {
# suppressMessages(requirePackagesOrSkip("!rrlda", default.method = "load"))
#
# m = rrlda::rrlda(x = multiclass.train[, -multiclass.class.col],
# grouping = multiclass.train[, multiclass.target])
# p = predict(m, x = multiclass.test[, -multiclass.class.col])$class
#
# testSimple("classif.rrlda", multiclass.df, multiclass.target,
# multiclass.train.inds, p)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.