"0","ggimpact <- gathered_impacts %>%"
"0","   group_by(scenario, impact_units, impact_origin, deconMaterialName, SimpleEOLname) %>%"
"0","   summarise(impact_sum = sum(impact)) %>%"
"0","   filter(impact_sum != 0 )"
"0","#write.csv(ggimpact, ""intermediary/Impact summary by origin and material type.csv"")"
