knitr::opts_chunk$set(echo = TRUE)
This is for managing and understanding your tiltmeter data
remotes::install_github("rfrancolini/tiltometer")
library(tiltometer) x <- read_tiltometer() x
uv <- draw_uv(x) uv
month <- droplevels(factor(format(x$date, "%b"), levels = month.abb)) tiltometer_rose(x, facet = month, n_col = 2, speed.cuts = "quantile-4")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.