From 26a2a71b8ad239147ec5bc61915ec1237832bd87 Mon Sep 17 00:00:00 2001 From: Frederik Vanrenterghem Date: Thu, 16 Nov 2017 14:50:00 +0800 Subject: [PATCH 1/1] Fix typo. --- AU-taxstats.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/AU-taxstats.R b/AU-taxstats.R index 92577c6..1ca7b75 100644 --- a/AU-taxstats.R +++ b/AU-taxstats.R @@ -47,7 +47,7 @@ sa3 <- st_read(dsn = "data/", layer = "SA3_2016_AUST", stringsAsFactors = FALSE) POA_SAs <- st_intersects(x=sa3, y=POA, sparse=FALSE) taxstats.POA$`Total.Income.or.Loss..`[is.na(taxstats.POA$`Total.Income.or.Loss..`)] <- 0 taxstats.POA$`Total.Income.or.Loss.no.`[is.na(taxstats.POA$`Total.Income.or.Loss.no.`)] <- 0 -# Perform matrix multiplication to obtain the income metrix per SA3 +# Perform matrix multiplication to obtain the income metrics per SA3 # Total income will be incorrect, as the POAs intersect with multiple SA3s sa3$TotalIncome <- as.vector(POA_SAs %*% as.matrix(taxstats.POA$`Total.Income.or.Loss..`)) sa3$TotalIncomeEarners <- as.vector(POA_SAs %*% as.matrix(taxstats.POA$`Total.Income.or.Loss.no.`)) -- 2.39.5