knitr::opts_chunk$set(echo = FALSE)
#knitr::opts_chunk$set(fig.dim = c(5,3))
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(gratia)
library(ggplot2)
load_mgcv()
ts <- read.csv(here::here("analysis", "from_stories", "results", "ts_w_rescaled_e_100bbs.csv"))
## `summarise()` regrouping output by 'currency', 'identifier' (override with `.groups` argument)
## Joining, by = c("currency", "identifier", "k")
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.