Nothing
context("PipeOpMultiplicityExply")
test_that("multiplicityexply - basic properties", {
po = PipeOpMultiplicityExply$new(3)
expect_pipeop(po)
expect_data_table(po$input, nrows = 1)
expect_data_table(po$output, nrows = 3)
expect_pipeop_class(PipeOpMultiplicityExply, list(1))
expect_pipeop_class(PipeOpMultiplicityExply, list(3))
})
test_that("multiplicityexply - train and predict", {
tsk = mlr_tasks$get("iris")
keep1 = setdiff(tsk$feature_names, c("Sepal.Length", "Sepal.Width"))
keep2 = setdiff(tsk$feature_names, c("Petal.Length", "Petal.Width"))
t1 = tsk$clone()$select(keep1)
t2 = tsk$clone()$select(keep2)
po = PipeOpMultiplicityExply$new(2)
tout = train_pipeop(po, list(as.Multiplicity(list(t1, t2))))
expect_list(po$state, len = 0)
expect_list(tout, len = 2)
expect_equal(tout[[1]], t1)
expect_equal(tout[[2]], t2)
pout = predict_pipeop(po, list(as.Multiplicity(list(t1, t2))))
expect_list(pout, len = 2)
expect_equal(pout[[1]], t1)
expect_equal(pout[[2]], t2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.