some statistics

This commit is contained in:
2016-07-07 09:40:10 +02:00
parent 5cda95dde9
commit 1841d8667a
2 changed files with 46 additions and 0 deletions
@@ -56,5 +56,6 @@ mainTable$supporter_signer_ratio = mainTable$supporters/mainTable$participants
# Replace Na's with 0
mainTable[is.na(mainTable)] <- 0
mainTable$zip2 <- floor(mainTable$zip/100)
write.xlsx(mainTable, file = "statistics_city_participation_by_zip.xls", row.names=F)