CO2.long <- gather(CO2, response, value, c(conc, uptake))  
head(CO2) 
head(CO2.long) 
tail(CO2.long)