I have shown my time series in part a) but I am having a problem with part c because I am getting an error pf which I am not sure whether is it because my code for part a was incorrect or what.

 

Transcribed Image Text:

Compute the total domestic overnight trips across Australia from the tourism dataset. a) Plot the data and describe the main features of the series. {r tkkv} state summarise(Trips sum(Trips)) autoplot (state, Trips) + labs (y "overnight trips ('000)", title "Australian domestic overnight trips") Australian domestic overnight trips 3000 2006 t Quarter (1 b) Decompose the series using STL and obtain the seasonally adjusted data. {r gsgt} state |> modelC STL (Trips robust trend(window = 7) + season(window =TRUE)) |> components (> | > autoplot() {r seasona adjust} st11 dcmp % model (STL (Trips)) %>% components () st 11 dcmp %>% as_tsibble() %>% "periodic"), autoplot (season adjust) + labs ( title "Australian domestic overnight trips seasonally adjusted data") c) c) Forecast the next two years of the series using an additive damped trend method applied to the seasonally adjusted data. (This can be specified using decomposition model().) {r fddfg} decomposed data % decompose (type "additive", trend - "damped"> forecast result % model (ETS(Trips trend (damped = TRUE))) %>% forecast (h "2 years") Error in decompose(., type "additive", trend = unused argument (trend "damped"> "damped") : Compute the total domestic overnight trips across Australia from the tourism dataset. a) Plot the data and describe the main features of the series. {r tkkv} state summarise(Trips sum(Trips)) autoplot (state, Trips) + labs (y "overnight trips ('000)", title "Australian domestic overnight trips") Australian domestic overnight trips 3000 2006 t Quarter (1 b) Decompose the series using STL and obtain the seasonally adjusted data. {r gsgt} state |> modelC STL (Trips robust trend(window = 7) + season(window =TRUE)) |> components (> | > autoplot() {r seasona adjust} st11 dcmp % model (STL (Trips)) %>% components () st 11 dcmp %>% as_tsibble() %>% "periodic"), autoplot (season adjust) + labs ( title "Australian domestic overnight trips seasonally adjusted data") c) c) Forecast the next two years of the series using an additive damped trend method applied to the seasonally adjusted data. (This can be specified using decomposition model().) {r fddfg} decomposed data % decompose (type "additive", trend - "damped"> forecast result % model (ETS(Trips trend (damped = TRUE))) %>% forecast (h "2 years") Error in decompose(., type "additive", trend = unused argument (trend "damped"> "damped") :