# read lib data
data('src')
data('trg')
# areal weighting interpolation - awi
awi <- pp_estimate(trg, src, sid = sid, spop = pop,
method = awi)
# volume weighting interpolation - vwi
vwi <- pp_estimate(trg, src, sid = sid, spop = pop,
method = vwi, volume = floors)
# awi - rmse
pp_compare(awi, estimated = pp_est, actual = rf,
title ='awi')
# vwi - rmse
pp_compare(vwi, estimated = pp_est, actual = rf,
title ='vwi')
Run the code above in your browser using DataLab