R/mase.R

Defines functions maseSS

maseSS<-function(obs,hat,step=1,na.rm=TRUE){
  t=length(hat)
  
  sum(abs(obs[-seq(step)]-hat[-seq(step)]),na.rm=na.rm)/
    sum(abs(obs[-seq(step)]-obs[-(length(obs)-seq(step)+1)]),na.rm=na.rm)}
flr/diags documentation built on Aug. 5, 2021, 7:39 p.m.