swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085
Tip revision: e7bc5a319919d3a605a8f6073cb4e4ae44b35713 authored by Han Lin Shang on 25 April 2017, 06:42:50 UTC
version 4.8
version 4.8
Tip revision: e7bc5a3
rmdspe.R
`rmdspe` <- function(forecast, true)
{
if (length(forecast) != length(true))
stop("RMDSPE: the lengths of input vectors must be the same.")
err = sqrt(median((100 * (true - forecast) / true)^2))
return(round(err, 6))
}