Wealth closer to Wealth Tax Commission, exept fixed a HH level.

grahamstark · Sep 5, 2023 · e087c6e · e087c6e
1 parent 2aa1a8c
commit e087c6e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/OtherTaxes.jl b/src/OtherTaxes.jl
@@ -19,7 +19,7 @@ function calculate_wealth_tax!(
     hd = get_head( hh )
     pres = household_result.bus[1].pers[ hd.pid ]
     wealth = 0.0
-    # to individual level 
+    # FIXME TODO to individual level 
     if sys.abolished > 0
         return
     end

diff --git a/src/TheEqualiser.jl b/src/TheEqualiser.jl
@@ -112,6 +112,8 @@ function run( x :: T, rparams :: RunParameters{T} ) where T <: AbstractFloat
 
     if rparams.target == eq_wealth_tax
         rparams.params.wealth.rates .+= x
+        # Make the weekly equivalent rate which is what actually generates the costs.
+        weeklyise!( rparams.params.wealth )
     end
     if rparams.target == eq_corporation_tax
         rparams.params.othertaxes.implicit_wage_tax += x