Repair compactify vignette median slide

lcbrooks · lcbrooks · commit c1c61e440848 · 2022-07-28T21:24:11.000-07:00
diff --git a/vignettes/compactify.Rmd b/vignettes/compactify.Rmd
@@ -102,7 +102,7 @@ speeds <- rbind(speeds, speed_test(iterate_as_of,"as_of_1000x"))
 
 # Performance of slide
 slide_median <- function(my_ea) {
-    my_ea$slide(median = median, n = 7)
+    my_ea$slide(median = median(case_rate_7d_av), n = 7)
 }
 
 speeds <- rbind(speeds, speed_test(slide_median,"slide_median"))

Original file line number	Diff line number	Diff line change
`@@ -102,7 +102,7 @@ speeds <- rbind(speeds, speed_test(iterate_as_of,"as_of_1000x"))`
`102`	`102`
`103`	`103`	`# Performance of slide`
`104`	`104`	`slide_median <- function(my_ea) {`
`105`		`- my_ea$slide(median = median, n = 7)`
	`105`	`+ my_ea$slide(median = median(case_rate_7d_av), n = 7)`
`106`	`106`	`}`
`107`	`107`
`108`	`108`	`speeds <- rbind(speeds, speed_test(slide_median,"slide_median"))`