search for: simtim

...d. In order to determine the amount a basic forecasting model of using the average of the last 12 time periods shall be used. My code looks like the following. ? [?] # Time units in month START<-0; FINISH<-120; STEP<-1 # Set seed for reproducability set.seed(123) # Create time vector simtime <- seq(START, FINISH, by=STEP) # Create a stock vector with initial values stocks <- c([?]) # Create an aux vector for the fixed aux values auxs <- c([?]) model <- function(time, stocks, auxs){ with(as.list(c(stocks, auxs)),{ [? ?lots of aux, flow, and stock functions? ? ]...