Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also .

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also .
...
  • 2 commits
  • 1 file changed
  • 0 commit comments
  • 1 contributor
Showing with 2 additions and 2 deletions.
  1. +2 −2 analysis.R
View
4 analysis.R 100644 → 100755
@@ -38,7 +38,7 @@ HOMESTEAD_ADJUSTMENT <- -15000
## make our approximations unreasonable
county_base_2012 <- sum(as.numeric(subj_2012$Total_Value_2012_Cty), na.rm = T)
county_base_2013 <- sum(as.numeric(subj_2013$Total_Value_2013_Reval) +
- HOMESTEAD_ADJUSTMENT * (reval$Homestead == "Yes"),
+ HOMESTEAD_ADJUSTMENT * (subj_2013$Homestead == "Yes"),
na.rm = T)
## Muni and school district don't use the homestead exemption
@@ -167,7 +167,7 @@ ptx_increase_cdf(-0.25) # --> 0.06 (decrase by more than 25%)
ptx_increase_cdf(0.25) - ptx_increase_cdf(-0.25) # --> 0.82 (|change| <= 25%)
## Method 2: Drop properties w/ 2013 assessment < $3K
-reval_effects_3k <- subset(reval_effects, Total_Value_2013_Reval_Mkt >= 3000)
+reval_effects_3k <- subset(reval_effects, Total_Value_2013_Reval >= 3000)
ptx_3k_increase_cdf <- ecdf(reval_effects_3k$ptx_increase)
print("percentage of properties (>= $3K) that will have lower taxes:")
ptx_3k_increase_cdf(0) # --> 0.51

No commit comments for this range

Something went wrong with that request. Please try again.