R/get.matrix.R

Defines functions get.matrix

get.matrix <- function(scenario, root=TRUE) {
  matrix <- scenario$simulation
  if (root) { matrix <- cbind(rep(scenario$original[length(scenario$original)], scenario$n), matrix)  }
  return(matrix)
}
rhochreiter/scenarios documentation built on May 27, 2019, 7:28 a.m.