]> git.vanrenterghem.biz Git - R/project-au-taxstats.git/commitdiff
Fix typo. master
authorFrederik Vanrenterghem <frederik@vanrenterghem.biz>
Thu, 16 Nov 2017 06:50:00 +0000 (14:50 +0800)
committerFrederik Vanrenterghem <frederik@vanrenterghem.biz>
Thu, 16 Nov 2017 06:50:00 +0000 (14:50 +0800)
AU-taxstats.R

index 92577c60ba327ee07320311808efefc4ddfdc686..1ca7b75fde7674da5a62ef92620ddf26a550ec61 100644 (file)
@@ -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
 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.`))
 # 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.`))