write.csv(bad_good_alldata, file="ALL_PROJECT_DATA.csv", quote=FALSE, row.names=FALSE, sep="___")