## Not run:
# apsimExe <-"C:/Program Files (x86)/Apsim75-r3008/Model/Apsim.exe"
# apsimWd <- "~/APSIM"
# toRun <- c("Centro.apsim", "Continuous Wheat.apsim")
# results <- apsim(exe = apsimExe, wd = apsimWd, files = toRun)
#
# #Look at all of the results as a function of time in seperate plots
# plot(results[[2]])
#
# #Put all variables on one faceted plot
# plot(results[[2]], one_plot = TRUE) + theme_bw()
#
# #Plot just yield as a function of time
# plot(results[[2]], y = 'yield') + geom_line(colour = 'red') + theme_bw()
# ## End(Not run)
Run the code above in your browser using DataLab