linting

epiforecasts · Oct 16, 2023 · 20c823f · 20c823f
1 parent b7822db
commit 20c823f
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/R/dist.R b/R/dist.R
@@ -1208,7 +1208,7 @@ mean.dist_spec <- function(x, ...) {
       } else if (x$dist[id] == "gamma") {
         return(x$mean_mean[id])
       } else {
-	stop("Unknown distribution: ", x$dist[id])
+        stop("Unknown distribution: ", x$dist[id])
       }
     }, 0)
   }

diff --git a/data-raw/generation-time.R b/data-raw/generation-time.R
@@ -8,12 +8,12 @@ library(here)
 ## Code for this estimation process is available here: https://github.com/seabbs/COVID19 # nolint
 ## We assume that a case cannot infect another case on the day of infection.
 ## Load raw MCMC output
-gi <- data.table::setDT(readRDS(here::here("data-raw", "gi.rds")))
+gi <- setDT(readRDS(here("data-raw", "gi.rds")))
 ## Check mean and standard deviation
 example_generation_time <- dist_spec(
   mean = median(gi$mean),
   mean_sd = sd(gi$mean),
-  sd = median(gi$sd), 
+  sd = median(gi$sd),
   sd_sd = sd(gi$sd),
   dist = "gamma",
   max = 14L

diff --git a/data-raw/incubation-period.R b/data-raw/incubation-period.R
@@ -1,6 +1,7 @@
 library(EpiNow2)
 
-## COVID-19 incubation period from Lauer et al., https://doi.org/10.7326/M20-0504
+## COVID-19 incubation period from Lauer et al.,
+## https://doi.org/10.7326/M20-0504
 
 example_incubation_period <- dist_spec(
   mean = 1.621,