rolling mean

carlylovas · Jan 21, 2025 · 399c149 · 399c149
1 parent 3cf4c8b
commit 399c149
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/R/garfo/license_movement.html b/R/garfo/license_movement.html
diff --git a/R/garfo/license_movement.qmd b/R/garfo/license_movement.qmd
@@ -130,7 +130,8 @@ grouped_center_bio <- function(clean_survey, ...){
 }
 
 weighted_data <- grouped_center_bio(clean_survey, est_year) %>%
-  mutate(decade = 10*est_year %/% 10)
+  mutate(decade = 10*est_year %/% 10,
+         avg_lat = zoo::rollapplyr(avg_lat, width = 5, FUN = mean, align = "center", partial = T))
 ```
 
 ```{r}