R/misc.R

Defines functions entropyHelper get.data.frame.from.formula as.simple.formula

Documented in as.simple.formula

as.simple.formula <- function(attributes, class) {
	return(as.formula(paste(class, paste(attributes, sep = "", collapse = " + "), sep = " ~ ")))
}

get.data.frame.from.formula <- function(formula, data) {
	d = model.frame(formula, data, na.action = NULL)
	for(i in 1:dim(d)[2]) {
		if(is.factor(d[[i]]) || is.logical(d[[i]]) || is.character(d[[i]]))
			d[[i]] = factor(d[[i]])
	}
	return(d)
}

entropyHelper <- function(x, unit = "log") {
    return(entropy(table(x, useNA="always"), unit = unit))
}

Try the FSelector package in your browser

Any scripts or data that you put into this service are public.

FSelector documentation built on Feb. 17, 2021, 1:06 a.m.