PKG-26b_ETS

1. Load data

ts <- read.csv("https://raw.githubusercontent.com/forvis/forvision_data/master/M3_quarterly_TSTS.csv", stringsAsFactors = FALSE)
fs <- read.csv("D:/00_Forvision/forvision/ETS.csv", stringsAsFactors=FALSE)
head(ts)

head(fs)

2. plotHitrateChart

plotHitrateChart(ts, fs, m = "ETS", pi = 90)

# В данных только один метод (если много методов то выводятся разные методы с h = 1)
plotHitrateChart(ts, fs, h = 1, pi = 90)

plotHitrateChart(ts, fs, h = 1:4, pi = 90)