# read lib data
data('src')
data('trg')
# areal weighted interpolation - awi
awi <- pp_estimate(trg, src, sid = sid, spop = pop,
method = awi)
# volume weighted interpolation - vwi
vwi <- pp_estimate(trg, src, sid = sid, spop = pop,
method = vwi, volume = floors)
# awi - round
pp_round(awi, tpop = pp_est, spop = pop, sid = sid)
# vwi - round
pp_round(vwi, tpop = pp_est, spop = pop, sid = sid)
Run the code above in your browser using DataLab