Skip to content

Commit

Permalink
Minor fix
Browse files Browse the repository at this point in the history
  • Loading branch information
SofiaOtero committed Oct 21, 2024
1 parent 423dcbc commit f75b4a0
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions tests/testthat/test-fit_peak.R
Original file line number Diff line number Diff line change
Expand Up @@ -4,9 +4,9 @@ test_that("Can run the fit_peak fun without error", {
obs <- 10
season <- c("2018/2019", "2019/2020", "2020/2021")
season_num_rev <- rev(seq(from = 1, to = length(season)))
observations <- rep(rnorm(10, obs), length(season))
observations <- rep(stats::rnorm(10, obs), length(season))

peak_input <- tibble(
peak_input <- tibble::tibble(
observation = observations,
weight = 0.8^rep(season_num_rev, each = obs),
season = season[rep(seq(from = 1, to = length(season)), each = obs)]
Expand Down

0 comments on commit f75b4a0

Please sign in to comment.