test_that("TaskDesc", {
ct = makeClassifTask(target = "Class", binaryclass.df, id = "mytask", positive = "M")
td = getTaskDesc(ct)
expect_equal(td$id, "mytask")
expect_equal(td$positive, "M")
expect_equal(td$negative, "R")
ct = makeClassifTask(target = "Species", multiclass.df, id = "mytask2")
td = getTaskDesc(ct)
expect_equal(td$id, "mytask2")
expect_true(is.na(td$positive))
expect_true(is.na(td$negative))
rt = makeRegrTask(target = "medv", regr.df, id = "mytask3")
td = getTaskDesc(rt)
expect_equal(td$id, "mytask3")
expect_true(is.null(td$positive))
expect_true(is.null(td$negative))
td = getTaskDesc(multiclass.task)
expect_equal(td$size, 150)
expect_equal(sum(td$n.feat), 4)
expect_equal(td$n.feat[["numerics"]], 4)
expect_equal(td$n.feat[["factors"]], 0)
expect_equal(td$has.missings, FALSE)
expect_equal(td$type, "classif")
expect_equal(td$class.levels, c("setosa", "versicolor", "virginica"))
# check missing values
df = multiclass.df
df[1, 1] = as.numeric(NA)
ct = makeClassifTask(target = "Species", data = df)
expect_equal(getTaskDesc(ct)$has.missings, TRUE)
ct = makeClassifTask(target = binaryclass.target, data = binaryclass.df)
td = getTaskDesc(ct)
expect_equal(td$size, 208)
expect_equal(sum(td$n.feat), 60)
expect_equal(td$n.feat[["numerics"]], 60)
expect_equal(td$n.feat[["factors"]], 0)
expect_equal(td$has.missings, FALSE)
expect_equal(td$type, "classif")
expect_equal(td$class.levels, c("M", "R"))
td = getTaskDesc(regr.task)
expect_equal(td$size, 506)
expect_equal(sum(td$n.feat), 13)
expect_equal(td$n.feat[["numerics"]], 12)
expect_equal(td$n.feat[["factors"]], 1)
expect_equal(td$has.missings, FALSE)
expect_equal(td$type, "regr")
expect_true(is.null(td$class.levels))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.