# NOT RUN {
require(nasapower)
require(ggplot2)
pwr <- get_power_apsim_met(lonlat = c(-93,42), dates = c("2012-01-01","2015-12-31"))
check_apsim_met(pwr)
pwr <- impute_apsim_met(pwr)
pwr2 <- tt_apsim_met(pwr, dates = c("01-05", "30-10"), method = c("Classic", "Heat"))
ggplot(data = pwr2, aes(x = Date, y = Classic_TT)) + geom_point()
ggplot(data = pwr2, aes(x = Date, y = HeatStress_TT)) + geom_point()
# }
Run the code above in your browser using DataLab