Permalink
Browse files

Make assessment and property-tax calculations slightly more accurate

The effect of this change is tiny:

> with(reval_effects, summary(rel_ptx - rel_ptx_orig, na.rm=T))
     Min.   1st Qu.    Median      Mean   3rd Qu.      Max.      NA's
 -0.07652  -0.00026  -0.00001  -0.00030   0.00000   0.00349 274.00000
  • Loading branch information...
1 parent 9b888c8 commit cc21ea2de4f1f5a8ca0b785f91bad5c5f5c4cb69 @tmoertel committed Feb 23, 2012
Showing with 12 additions and 12 deletions.
  1. +12 −12 analysis.R
View
@@ -80,21 +80,21 @@ reval_effects <-
(Total_Value_2013_Reval +
(HOMESTEAD_ADJUSTMENT * (Homestead.y == "Yes")))),
## Relative assessment
- rel_asm = ((county_rate * (Total_Value_2013_Reval_Cty /
- Total_Value_2012_Cty) +
- (sd_rate + muni_rate) * (Total_Value_2013_Reval /
- Total_Value_2012_Mkt))
- / (county_rate + sd_rate + muni_rate)),
+ rel_asm = ((county_rate * Total_Value_2013_Reval_Cty +
+ (sd_rate + muni_rate) * Total_Value_2013_Reval)
+ /
+ (county_rate * Total_Value_2012_Cty +
+ (sd_rate + muni_rate) * Total_Value_2012_Mkt)),
## Increase in assessment
asm_increase = rel_asm - 1.0,
## Relative property taxes (estimated)
- rel_ptx = (((county_rate * anti_windfall_adj_county *
- (Total_Value_2013_Reval_Cty /
- Total_Value_2012_Cty)) +
- ((sd_rate + muni_rate) * anti_windfall_adj_muni_sd *
- (Total_Value_2013_Reval /
- Total_Value_2012_Mkt)))
- / (county_rate + sd_rate + muni_rate)),
+ rel_ptx = ((county_rate * anti_windfall_adj_county *
+ Total_Value_2013_Reval_Cty +
+ (sd_rate + muni_rate) * anti_windfall_adj_muni_sd *
+ Total_Value_2013_Reval)
+ /
+ (county_rate * Total_Value_2012_Cty +
+ (sd_rate + muni_rate) * Total_Value_2012_Mkt)),
## Increase in property taxes (estimated)
ptx_increase = rel_ptx - 1))

0 comments on commit cc21ea2

Please sign in to comment.