R/scenario.simulation.R

In rhochreiter/scenarios: Scenario-based Stochastic Optimization

scenario.simulation <- function(original, simulations) {
  simulation <- list()  
  simulation$original <- original
  simulation$simulation <- simulations
  simulation$n <- dim(simulations)[1]
  class(simulation) <- "scenario.simulation"
  return(simulation)
}