mirror of
https://github.com/andre-wojtowicz/uci-ml-to-r.git
synced 2024-11-04 14:25:28 +01:00
27 lines
705 B
R
27 lines
705 B
R
print.dataset.statistics = function(dataset)
|
|
{
|
|
if (ncol(dataset) == 0) # for mockups
|
|
{
|
|
flog.warn("Empty dataset")
|
|
return()
|
|
}
|
|
|
|
no.cases = nrow(dataset)
|
|
no.attributes = ncol(dataset) - 1
|
|
perc.classes =
|
|
round(100*as.numeric(table(dataset[, ncol(dataset)]))/nrow(dataset), 0)
|
|
|
|
flog.info(paste0("Cases: ", no.cases, ", attributes: ", no.attributes,
|
|
", classes: ", perc.classes[1], "%/", perc.classes[2], "%"))
|
|
}
|
|
|
|
setup.logger = function(output.file)
|
|
{
|
|
if (LOGGER.OVERWRITE.EXISTING.FILES & file.exists(output.file))
|
|
{
|
|
file.remove(output.file)
|
|
}
|
|
|
|
invisible(flog.appender(appender.tee(output.file)))
|
|
}
|