R/r-utility-type.R

In 42n4/dmr.util: A package with utility functions used in the book Cichosz, P. (2015): Data Mining Algorithms: Explained Using R

## get character-encoded attribute type information ("c" -- continuous, "d" -- discrete)
attr.type <- function(...)
{
  attr.type1 <- function(a) ifelse(is.numeric(a), "c", "d")
  paste(sapply(data.frame(...), attr.type1), collapse="")
}


if (FALSE)
{

  # usage examples
attr.type(weatherr$outlook, weatherr$playability)
attr.type(weatherr)

}