"0","transfer_to_EOL <- routes %>%"
"0","   select(""SimpleEOLname"", ""TransportLeg"", ""CarbonImpact"", ""EnergyImpact"") %>%"
"0","   # pull out just the recoverable wood, metal, "
"0","   slice(c(4:6)) %>% "
"0","   add_row(SimpleEOLname = ""nonrecoverable wood"", TransportLeg = ""transfer to landfill"", CarbonImpact = as.numeric(routes[6,9]), EnergyImpact = as.numeric(routes[6,10]))"
