I am currently working with a code in R, but I\'m a beginner, I\'d be really gratefuf if you could give me an help. The time series i\'m working with is this: