Bearloga has submitted this change and it was merged.

Change subject: Add code to generate a rolling window of data
......................................................................


Add code to generate a rolling window of data

Use a 30-day window (and also fix, going forward, the bulking bug
that led to this problem)

Bug: T119448
Change-Id: Ic6bb5b97e5a88b955158c65ee5ef9f18f57218ad
---
M maps/tiles.R
1 file changed, 5 insertions(+), 2 deletions(-)

Approvals:
  Bearloga: Verified; Looks good to me, approved



diff --git a/maps/tiles.R b/maps/tiles.R
index dfcf11a..4220a38 100644
--- a/maps/tiles.R
+++ b/maps/tiles.R
@@ -43,12 +43,12 @@
   output <- as.data.table(results[, union('date', names(results))])
   with_automata_output <- output[,list(users = length(user_id), total=sum(n), 
average = round(mean(n)), median = ceiling(median(n)),
                                        percentile95 = ceiling(quantile(n, 
0.95)), percentile99 = ceiling(quantile(n, 0.99))),
-                                 by= setdiff(names(output),c("n","user_id", 
"is_automata"))]
+                                 by= setdiff(names(output),c("n","user_id", 
"is_automata", "country"))]
   
   without_automata_output <- output[output$is_automata == FALSE,
                                     list(users = length(user_id), 
total=sum(n), average = round(mean(n)), median = ceiling(median(n)),
                                     percentile95 = ceiling(quantile(n, 0.95)), 
percentile99 = ceiling(quantile(n, 0.99))),
-                                    by= setdiff(names(output),c("n","user_id", 
"is_automata"))]
+                                    by= setdiff(names(output),c("n","user_id", 
"is_automata", "country"))]
   
   # Work out unique users on a per-country basis
   top_countries <- c("RU", "IT", "US", "UA", "FR", "IN", "DE", "ES", "GB")
@@ -63,4 +63,7 @@
   conditional_write(without_automata_output, file.path(base_path, 
"tile_aggregates_no_automata.tsv"))
   conditional_write(user_output, file.path(base_path, "users_by_country.tsv"))
   
+  # Handle rolling window
+  conditional_rewrite(with_automata_output, file.path(base_path, 
"tile_aggregates_with_automata_rolling.tsv"))
+  conditional_rewrite(without_automata_output, file.path(base_path, 
"tile_aggregates_no_automata_rolling.tsv"))
 }

-- 
To view, visit https://gerrit.wikimedia.org/r/273998
To unsubscribe, visit https://gerrit.wikimedia.org/r/settings

Gerrit-MessageType: merged
Gerrit-Change-Id: Ic6bb5b97e5a88b955158c65ee5ef9f18f57218ad
Gerrit-PatchSet: 2
Gerrit-Project: wikimedia/discovery/golden
Gerrit-Branch: master
Gerrit-Owner: OliverKeyes <[email protected]>
Gerrit-Reviewer: Bearloga <[email protected]>

_______________________________________________
MediaWiki-commits mailing list
[email protected]
https://lists.wikimedia.org/mailman/listinfo/mediawiki-commits

Reply via email to