added csv file with results

raw_data_APSIM/Daniela_script.R

@@ -17,6 +17,9 @@ v1 <- v1 %>%
 v1 <- rbind(v0, v1)
 v1b <- subset(v1, zadok_stage == 100)
 
+# write to csv file
+write.csv(v1b, "yield_248ENV.csv", quote=FALSE, row.names = FALSE)
+
 # just an example, to show the differences in yield
 filter(v1b, Env=="Emerald_1983" & geno == "g041")