Skip to content

Instantly share code, notes, and snippets.

@MJacobs1985
Created February 21, 2022 15:17
Show Gist options
  • Save MJacobs1985/e9fc97b7f027145b90df29c31c3d19b7 to your computer and use it in GitHub Desktop.
Save MJacobs1985/e9fc97b7f027145b90df29c31c3d19b7 to your computer and use it in GitHub Desktop.
arc_ts <- ts(data = arc_month[, c("rochef", "weightwhole", "weightslaughter" )],
start = c(2005, 09), # start date
end = c(2017, 11), # end date
frequency = 12)
ts_plot(arc_ts) # Weight whole and weight slaughter are almost the same
plot(ts_seas(arc_ts))
plot(ts_prcomp(arc_ts))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment