# creating a task
data(credit.data)
task <- CreateSDTask(credit.data, as.target("class", "bad"))
taskNum <- CreateSDTask(credit.data, as.target("credit_amount"))
# running the tasks
DiscoverSubgroupsByTask(task)
DiscoverSubgroupsByTask(taskNum)Run the code above in your browser using DataLab