I don't think you uploaded this file?i am uploading another file after making unpivot data
= Date.From([Attribute] & " 1," & Text.From([Year]))
library(forecast)
#time series
ts <- ts(dataset$Value, frequency=4)
decom <- stl(ts, s.window = "periodic")
pred <- forecast(decom, h = 4)
plot(pred)
AE = CALCULATE(SUM(Sheet1[Value]),FILTER(Sheet1,[AE/ROFO]="AE"))
ROFO = CALCULATE(SUM(Sheet1[Value]),FILTER(Sheet1,[AE/ROFO]="Rofo 1"))