Hello, I'm not able to attain a forecast line via arithmetic mean method using forecasting in R

Question

enter image description here

#Importing Libraries

library("forecast")

library("tseries")

library("smooth")