{
# get rpms model of mean retirement contribution by several factors
r1 <-rpms(FINDRETX~EDUC_REF+AGE_REF+BLS_URBN+REGION, data=CE,
e_equ=FINDRETX~FINCBTAX, clusters=~CID)
# get Latex code
qtree(r1)
}
Run the code above in your browser using DataLab