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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.