Revision 272ac623c984dbf5defce76b6495c05accafe79f authored by Patrick Schratz on 17 December 2019, 04:08:28 UTC, committed by Patrick Schratz on 17 December 2019, 04:08:28 UTC
Build URL: https://circleci.com/gh/mlr-org/mlr/1264 Commit:
1 parent 9de9c6e
makeTaskDescFromData.R
makeTaskDescFromChangedData = function(task, data) {
td = task$task.desc
i = which(colnames(data) %in% c(target))
td$size = nrow(data)
y = data[, td$target]
td$n.feat = c(
numerics = sum(sapply(data, is.numeric)) - is.numeric(y),
factors = sum(sapply(data, is.factor)) - is.factor(y)
)
if(type == "classif")
td$class.levels = levels(y)
else
td$class.levels = as.character(NA)
td$has.missings = any(sapply(data, function(x) any(is.na(x))))
return(td)
}
Computing file changes ...