R/MAE.R

In DiceEval: Construction and Evaluation of Metamodels

Defines functions MAE

Documented in MAE

MAE <- function(Y,Ypred)
{
	Ypred <- as.numeric(Ypred)
	Y    <- as.numeric(Y)
	if(length(Ypred)!=length(Y)){
		stop("The entries must have the same length.")
	}
	return(mean(abs(Y-Ypred)))
}

Try the DiceEval package in your browser