library(bis620.2023)
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following objects are masked from 'package:base':
#>
#> date, intersect, setdiff, union
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(ggplot2)
data(accel)
t1 = accel$time[50000]
accel |>
filter(time > t1 & time <= t1 + minutes(5)) |>
spec_sig(take_log = TRUE) |>
filter(freq <= 3) |>
plot_accel(x_var = "freq") +
theme_bw()
