R/scenario.tree.R

Defines functions scenario.tree

scenario.tree <- function(values, predecessors, stages,
                          p.node=NA, p.stage=NA) {

  scenario.tree <- list()
  scenario.tree$value <- values
  scenario.tree$predecessor <- predecessors
  scenario.tree$stage <- stages
  scenario.tree$p.node <- p.node
  scenario.tree$p.stage <- p.stage
  scenario.tree$nodes <- length(values)
  scenario.tree$stages <- max(stages) + 1
  class(scenario.tree) <- "scenario.tree"

  return(scenario.tree)
}
rhochreiter/scenarios documentation built on May 27, 2019, 7:28 a.m.