data(apricotFFD)
data(BJDAT)
X1 <- apricotFFD
X2 <- BJDAT
Year1.val <- X1$Year
Time.val <- X1$Time
Year2.val <- X2$Year
DOY.val <- X2$DOY
Tmin.val <- X2$MinDT
Tmax.val <- X2$MaxDT
DOY.ul.val <- 120
S.val <- 65
T0.val <- 3.8
AADD.val <- 136.5805
# \donttest{
cand.res2 <- predADD2( S = S.val, T0 = T0.val, AADD = AADD.val, Year2 = Year2.val,
DOY = DOY.val, Tmin = Tmin.val, Tmax = Tmax.val,
DOY.ul = DOY.ul.val )
cand.res2
ind1 <- cand.res2$Year %in% intersect(cand.res2$Year, Year1.val)
ind2 <- Year1.val %in% intersect(cand.res2$Year, Year1.val)
RMSE1 <- sqrt( sum((Time.val[ind2]-cand.res2$Time.pred[ind1])^2) / length(Time.val[ind2]) )
RMSE1
# }
Run the code above in your browser using DataLab