# NOT RUN {
f <- 1:6
g <- c(0, 3, 3, 3, 6, 6)
print(c(
HD = HD(f, g),
HDutility = HDutility(f, g),
maxdiff = max(abs(g - f)),
meanAbsDiff = mean(abs(g - f)),
rootMeanSquare = sqrt(mean((g - f)^2))
))
# }
Run the code above in your browser using DataLab