time <- seq(from = as.POSIXct("2017-11-09"), by = 60*60*24, length.out = 230) # the time vector
data <- cbind.data.frame(time, NA) # a NA vector
data[,3] <- rnorm(230, .25, .1) # random normal distributed data, obs
data[,4] <- data[,3]*1.2 # positive correlated data, sim
data[,5] <- data[,4] - data[,3] # difference sim and obs
data[,6] <- 0 # driving force
data[,7] <- NA # a NA vector
colnames(data) <- c("time", "var1", "obs", "sim", "difference", "Rainfall", "Rainfall2")
head(data)
ts <- IsReg.ts(data, "%Y-%m-%d", "ECT")
ts <- ts[[2]]
gof.new <- GoF(data, 4, 3, "")
gof.new
## not run
## creating the plot (uncomment to run)
#PlotEval(data, ts, gof.new, "ExamplePlot", "topright", "topright", "topright")
#Run the code above in your browser using DataLab