"0","net_impacts <- filter(gathered_impacts, SimpleEOLname != ""per_project_transport"") %>%"
"0","   group_by(scenario, impact_units, impact_origin) %>%"
"0","   summarise(impact = sum(impact)) %>%"
"0","   full_join(worker_equipment_summary, by = c(""scenario"", ""impact_units"", ""impact_origin"", ""impact""))"
"0","# add the per house column now and export data table for the report draft"
"0","# per comments from Jordan, the next several code chunks showing net impacts will not be used,"
"0","# instead, make new tables showing impacts by scenario per average home with net value"
"0","final_impact_summary <- net_impacts %>%"
"0","   mutate(per_home_impact = impact / length(house_weight$project))"
"0","write.csv(final_impact_summary, ""intermediary/final_impact_summary.csv"")"
