Skip to content

Instantly share code, notes, and snippets.

@omartinez182

omartinez182/time-series-analysis-s-8.R

Created June 19, 2020 18:12
Show Gist options
  • Save omartinez182/5eb2ade664ad361a278f243bbfbf4acd to your computer and use it in GitHub Desktop.
Save omartinez182/5eb2ade664ad361a278f243bbfbf4acd to your computer and use it in GitHub Desktop.
Download ZIP
Understanding Time Series Analysis with R - Snippet 8
Raw
time-series-analysis-s-8.R
#Deseasonality
dfOut <- data.frame(dfOut, DES=(dfOut[ ,2]/dfOut[, 5])) #Y/S
dfOut %>%
ggplot(aes(x=t, y=DES))+
geom_line(col="light blue")+
geom_point(col="black")+
xlab('Time')+
ylab('DES')+
theme_minimal()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment