R/utils.r

In Marchen/cv.models: Model Selection and Hyper-Parameter Tuning by Cross Validation

set.seed.if.possible <- function(object) {
	if (!is.null(object$seed)) {
		set.seed(object$seed)
	}
}


determine.positive.class <- function(object) {
	response <- object$adapter$y.vars[[1]]
	if (is.numeric(response)) {
		return("1")
	}
	if (is.logical(response)) {
		return("TRUE")
	}
	if (!is.null(object$positive.class)) {
		return(object$positive.class)
	}
	if (is.factor(response)) {
		return(levels(response)[1])
	}
	if (is.character(response)) {
		return(levels(as.factor(response))[1])
	}
	stop(
		"Response of the model should be integer, logical, factor or character."
	)
}