R/bootStateSpace-formula-ou-dot.R

In bootStateSpace: Bootstrap for State Space Models

.FormulaOU <- function(p,
                       intercept) {
  if (intercept) {
    formula <- lapply(
      X = seq_len(p),
      FUN = function(i) {
        terms <- paste0(
          "(phi_",
          i,
          "_",
          seq_len(p),
          " * (eta_",
          seq_len(p),
          " - mu_",
          seq_len(p),
          "_1",
          "))",
          collapse = " + "
        )
        paste0(
          "eta_",
          i,
          " ~ ",
          terms
        )
      }
    )
  } else {
    formula <- lapply(
      X = seq_len(p),
      FUN = function(i) {
        terms <- paste0(
          "(",
          "phi_",
          i,
          "_",
          seq_len(p),
          " * eta_",
          seq_len(p),
          ")",
          collapse = " + "
        )
        paste0(
          "eta_",
          i,
          " ~ ",
          terms
        )
      }
    )
  }
  formula
}