ForecastFramework (version 0.10.3)

MoveAheadModel: MoveAheadModel

Description

An autoregressive model which assumes everything stays the same.

Fields

data

A MatrixData containing the data used in fitting of the model.

maxPredCol

The farthest back column from the output value used in prediction.

nsim

The number of stochastic simulations to perform.

predCols

An array of which columns are used in prediction. 1 means the column before the prediction, 2 the one before that etc.

stochastic

A string with the family of stochastic noise to apply to the recursive process. Currently only accepts 'Deterministic' and 'Poisson' as values.

Methods

fit(data)

Fit the model for predicting. This method breaks down the fitting process into two parts, data preparation, and the model fitting.

fit_()

This method is included for compliance with the standard but does nothing. This model does not need to be fit.

forecast(newdata = private$.data,steps=1)

Using a model previously fit with fit to predict the next steps columns. This function assumes that all of the data preprocessing has already been taken care of. This function is similar to predict, except that it can predict multiple time steps into the future instead of a single timestep.

Value

private$output This function should both modify and return private$output.

initialize(nsim = 3)

Create a new MoveAheadModel

predict(newdata)

Use a model previously fit with fit to predict. This function does not assume any data preprocessing. This function should not, in general need to be overwritten by the user. The main prediction function is predict_, so please modify that function instead if possible.

predictRow(newdata,row,col)

Using a model previously fit with fitRow to predict the rowth row of the next column. This function does not assume any data preprocessing. Since the predict method predicts every row at the the same time, we include this method for predicting only a single row.

predictRow_(row,col=0)

This method predicts a particular row.

predict_(col=0)

This method predicts as much as possible about the next time step.

prepareFitData(data)

This method gets data ready for fitting and stores it in the model for later use.

prepareForecastData(data)

This method gets data ready to use to forecast and stores it in the model for later use.

prepareOutputData(inputData,steps=0)

This method prepares the output for predict or forecast.

preparePredictData(newdata)

This method gets data ready to use to predict and stores it in the model for later use.

See Also

Inherits from : RecursiveForecastModel

Examples

# NOT RUN {
MoveAheadModel <- R6Class(
  classname = 'MoveAheadModel',
  inherit = RecursiveForecastModel,
  private = list(
    .data = IncidenceMatrix$new(),
    newdata = IncidenceMatrix$new(),
    output = ArrayData$new(),
  	.nsim = 3,
    .predCols = c(as.integer(1)),
    .maxPredCol = as.integer(1)
  ),
  public = list(
    initialize = function(nsim = 3){
      private$.nsim = nsim
    },
    fit_ = function(){
      if(self$data$ncol <= self$predCols){
        stop("We cannot go further back than the start of the matrix.")
      }
    },
    predictRow_ = function(row,col=0){
      predict_(col)
    },
    predict_ = function(col=0){
      if('predict_' %in% private$.debug){
        browser()
      }
      if(col == 0){
        col=1:private$output$ncol
      }
      private$output$mutate(
        cols=col,
        data = SimulatedIncidenceMatrix$new(
          private$newdata,
          private$.nsim
        )$simulations
      )
    },
    prepareFitData = function(data){
      private$.data = data$clone(TRUE)
    },
    preparePredictData = function(newdata){
      if('preparePredictData' %in% private$.debug){
        browser()
      }
      private$newdata = SimulatedIncidenceMatrix$new(data=newdata,nsim=self$nsim)
      private$.nrow = private$newdata$nrow
      private$newdata$addColumns(min(self$predCols))
      private$newdata$lag(min(self$predCols),na.rm=FALSE)
      private$newdata$subset(cols=2:private$newdata$ncol)
    },
    prepareForecastData = function(data){
      if(self$data$ncol <= self$predCols){
        stop("We cannot go further back than the start of the matrix.")
      }
      private$newdata = data$clone(TRUE)
      private$.nrow = private$newdata$nrow
      private$newdata$addColumns(min(self$predCols))
      private$newdata$lag(min(self$predCols),na.rm=TRUE)
    },
    prepareOutputData = function(inputData,steps=0){
      private$output = SimulatedIncidenceMatrix$new(inputData,private$.nsim)
      if(steps > 0){
        private$output$addColumns(steps)
      }
    }
  ),
  active = list(
    nsim = function(value){
      private$defaultActive(type='private',name='.nsim',val=value)
    }
  )
)
# }