/*****************************
 * Interhousehold Transfers  *
 * Author(s): Comfort Sumida *
 *****************************/

/**********************************************************************************************************
 * Product: Age profiles of interhousehold transfers                                                      *
 * Data requirements: household data on interhousehold transfer inflows and outflows, individual age data *
 *    tx420 = household current transfer receipts from individuals                                        *
 *    tx816 = household current transfer expenditures to private                                          *
 * Methodology: Household values allocated to head                                                        *
 **********************************************************************************************************/

/****************************************************************************
 * note(s): - do-files are for all years (loops)                            *
 *          - estimated age profiles are not adjusted to aggregate controls *
 ****************************************************************************/

# delimit ;
set more off;

forval i = 1976(1)2003 {;

/* use household data */
use "C:\mhh`i'.dta", clear;

/* interhousehold transfer inflows and outflows */
egen interhhi = tx420 * (rel == 1);
egen interhho = tx570 * (rel == 1);
recode inter* (. = 0);

/* merge with individual data */
sort savehhid;
save "C:\inter`i'.dta";

use "C:\mind`i'.dta", clear;
sort savehhid;
merge using "C:\inter`i'.dta";
tab _merge;
drop _merge;

table age [w = mult], c(mean interhhi mean interhho);
save "C:\inter`i'.dta", replace;
};