I would appreciate if you could let me know to conclude about the modified Diebold and Mariano test when our alternative hypothesis is less? How about greater?
library(forecast)
forecast <- ts(c( 96, 99,102, 96,105, 99, 99,103, 98,106))
observed <- ts(c( 96,101,107,108, 93,103, 99,105,103, 98))
forecast2 <- ts(c(105, 94,107,101,111,115,104,111,111,116))
print(dm.test((forecast-observed), (forecast2-observed),alternative = "two.sided"))
print(dm.test((forecast-observed), (forecast2-observed),alternative = "less"))
print(dm.test((forecast-observed), (forecast2-observed),alternative = "greater"))