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.val <- 65
T0.val <- -0.5
AADD.val <- 235.5282
res2 <- predADD( S = S.val, T0 = T0.val, AADD = AADD.val,
Year2 = Year2.val, DOY = DOY.val, Temp = Temp.val,
DOY.ul = DOY.ul.val )
res2
ind1 <- res2$Year %in% intersect(res2$Year, Year1.val)
ind2 <- Year1.val %in% intersect(res2$Year, Year1.val)
RMSE1 <- sqrt( sum((Time.val[ind2]-res2$Time.pred[ind1])^2) / length(Time.val[ind2]) )
RMSE1
Run the code above in your browser using DataLab