data(apricotFFD)
data(BJDAT)
X1 <- apricotFFD
X2 <- BJDAT
Year1.val <- X1$Year
Time.val <- X1$Time
Year2.val <- X2$Year
DOY.val <- X2$DOY
Temp.val <- X2$MDT
DOY.ul.val <- 120
S.arr0 <- seq(60, 70, by = 1)
T0.arr0 <- seq(-2, 5, by = 1)
# \donttest{
RES1 <- ADD3( S.arr = S.arr0, T0.arr = T0.arr0, Year1 = Year1.val, Time = Time.val,
Year2 = Year2.val, DOY = DOY.val, Temp = Temp.val, DOY.ul = DOY.ul.val,
fig.opt = TRUE, verbose = TRUE)
RES1
RMSE.mat0 <- RES1$RMSE.mat
RMSE.range <- range(RMSE.mat0)
dev.new()
par1 <- par(family="serif")
par2 <- par(mar=c(5, 5, 2, 2))
par3 <- par(mgp=c(3, 1, 0))
image( S.arr0, T0.arr0, RMSE.mat0, col = terrain.colors(200), axes = TRUE,
cex.axis = 1.5, cex.lab = 1.5, xlab = "Starting date (day-of-year)",
ylab = expression(paste("Base temperature (", degree, "C)", sep = "")))
points( RES1$S, RES1$T0, cex = 1.5, pch = 16, col = 2 )
contour( S.arr0, T0.arr0, RMSE.mat0, levels = round(seq(RMSE.range[1],
RMSE.range[2], len = 20), 4), add = TRUE, cex = 1.5, col = "#696969", labcex = 1.5)
par(par1)
par(par2)
par(par3)
# graphics.off()
# }
Run the code above in your browser using DataLab