myACS = tidy(acs_nycha,
mutate({ pUnder15: d => d.pop5t9P + d.pop10t14P + d.popu5P,
p15to24: d => d.pop15t19P + d.pop20t24P,
p25to60: d => d.pop25t29P + d.pop30t34P + d.pop35t39P + d.pop40t44P +d.pop45t49P + d.pop50t54P + d.pop55t59P,
pOver60: d => d.pop60t64P + d.pop65t69P + d.pop70t74P + d.pop75t79P + d.pop80t84P + d.pop85plP,
devCosts: d => Number(d['DEVELOPMENT COST'].replace(/[$,]/g, '')),
amgRent: d => Number(d['AVG MONTHLY GROSS RENT'].replace(/[$,]/g, '')),
unbuiltArea: d=> Number(d['CUBAGE CU FT'].replace(/[$,]/g, '')) - Number(d['BLDG COVERAGE SQ FT'].replace(/[$,]/g, '')),
ages: d=> [d.pUnder15, d.p15to24, d.p25to60, d.pOver60]}
))