R/SWAPE.R

In PacoParra/UtilMio: Utilidades para Analisis Input Output

Defines functions SWAPE

Documented in SWAPE

SWAPE=function(a,b) {
  200*sum(b*(abs(a-b)/abs(a+b))/sum(b))
}