JakeJohnson05

# Here below is a manual kruithof or ipf.  It terates between targets in a loop using the scale.to.target function
# There aren't very many checks in the function, so...
#   - Be sure the Targets don't have conflicting totals
#   - Be sure you don't include additional variables in the targets
#   - Check that it's converged

for (i in 1:5) {
  EMP305$Employment <- scale.to.target(source=EMP305, target=Target2, dv="Employment")  # Scale to CTRY
  EMP305$Employment <- scale.to.target(source=EMP305, target=Target3, dv="Employment")  # Scale to IND
  EMP305$Employment <- scale.to.target(source=EMP305, target=Target5, dv="Employment")  # Scale to Year