R/aer.R

In arsilva87/biotools: Tools for Biometry and Applied Statistics in Agricultural Science

Defines functions aer

Documented in aer

aer <-
function(obs, predict)
{
   obs <- as.vector(obs)
   predict <- as.vector(predict)
   if (length(obs) != length(predict))
      stop("incompatible dimensions!")
   n <- length(obs)
   dif <- function(x, y) mean(x != y)
   rate <- dif(obs, predict)
   return(rate)
}