http://magma.ua4vjlx72wv5crhkificaeysp62hizhazipfshsdvs6jxqvhtkpllcad.onion/guide/data-analysis.html
To do so, copy the following contents into a file ( webct.R ): library ( ggplot2 ) library ( data.table ) x <- fread ( file = "web_connectivity_tz.csv" ) x $ date <- as.POSIXct ( x $ date , tz = "UTC" ) # Throw away infrequently seen URLs. # x <- x[, .SD[.N >= 5], by=url] # Get the average blocking rate for each URL (regardless of date and asn). overall <- x [ , . ( blocking = sum ( blocked !