View(tableDeprCat)
delta_avg_det_cat = mean(tableDeprCat[Year>1982,deltaCat])
delta_avg_det_cat = mean(tableDeprCat[Year>1982,]$deltaCat)
delta_avg_det_cat = mean(tableDeprCat[tableDeprCat$Year>1982,]$deltaCat)
delta_avg_eq = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$DetCatefory=="Equipment",]$deltaCat)
delta_avg_ipp = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$DetCatefory=="Intellectual property products",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$DetCatefory=="Structure",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$DetCatefory=="Structures",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 && tableDeprCat$DetCatefory=="Structures",]$deltaCat)
delta_avg_eq = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$DetCategory=="Equipment",]$deltaCat)
delta_avg_eq = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$Category=="Equipment",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 && tableDeprCat$Category=="Structures",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$Category=="Structures",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$Category=="Intellectual property products",]$deltaCat)
delta_avg_str = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$Category=="Structures",]$deltaCat)
delta_avg_ipp = mean(tableDeprCat[tableDeprCat$Year>1982 & tableDeprCat$Category=="Intellectual property products",]$deltaCat)
