# subgroup discovery on a data.frame, for binary target
data(credit.data)
result1 <- DiscoverSubgroups(credit.data, as.target("class", "good"))
result2 <- DiscoverSubgroups(
credit.data, as.target("class", "good"), new("SDTaskConfig",
attributes=c("checking_status", "employment")))
ToDataFrame(result1)
ToDataFrame(result2)
# subgroup discovery for numeric target variable
result3 <- DiscoverSubgroups(credit.data, as.target("credit_amount"))
ToDataFrame(result3)Run the code above in your browser using DataLab