# NOT RUN {
as.data.table(mlr_tasks)
task = mlr_tasks$get("penguins") # same as tsk("penguins")
head(task$data())
# Add a new task, based on a subset of penguins:
data = palmerpenguins::penguins
data$species = factor(ifelse(data$species == "Adelie", "1", "0"))
task = TaskClassif$new("penguins.binary", data, target = "species", positive = "1")
# add to dictionary
mlr_tasks$add("penguins.binary", task)
# list available tasks
mlr_tasks$keys()
# retrieve from dictionary
mlr_tasks$get("penguins.binary")
# remove task again
mlr_tasks$remove("penguins.binary")
# }
Run the code above in your browser using DataLab