tm <- toymodel()
FairSprErr(tm$fcst, tm$obs)
## compute spread to error ratio using veriApply
veriApply('FairSprErr', fcst=tm$fcst, obs=tm$obs)
## compare with 'unfair' spread to error ratio
veriApply("EnsSprErr", fcst=tm$fcst, obs=tm$obs)Run the code above in your browser using DataLab