new.tree {ArvoRe}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

new.tree()

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function() {
        Payoffs <- matrix(0,1,2)
        
        colnames(Payoffs) <- paste("Payoff",1:length(Payoffs),sep="")
        
        TheTree <- data.frame( Level = 1, Node.N = 1, Node.name = "Decision",
                                                         Father = 0, Father.Name = "root",
                                                         Prob = 1, Type = "D", Note = " ", Destiny = " ",
                                                         Payoffs)
        
        TheTree$Level <- as.numeric(TheTree$Level)
        TheTree$Node.N <- as.numeric(TheTree$Node.N)
        TheTree$Node.name <- as.character(TheTree$Node.name)
        TheTree$Father <- as.numeric(TheTree$Father)
        TheTree$Father.Name <- as.character(TheTree$Father.Name)
        TheTree$Prob <- as.numeric(TheTree$Prob)
        TheTree$Type <- as.character(TheTree$Type)
        TheTree$Note <- as.character(TheTree$Note)
        TheTree$Destiny <- as.character(TheTree$Destiny)
        TheTree$Payoff1 <- as.numeric(TheTree$Payoff1)
        TheTree$Payoff2 <- as.numeric(TheTree$Payoff2)
        
        markov.propertiesMAT <- data.frame(     "Level" = array(,0),
                                                                                "Node.N" = array(,0),
                                                                                "Node.name" = array(,0),
                                                                                "Father" = array(,0),
                                                                                "Father.Name" = array(,0),
                                                                                "Initial.cost" = array(,0), 
                                                                                "Incremental.cost" = array(,0), 
                                                                                "Final.cost" = array(,0),
                                                                                "Initial.effectiveness" = array(,0), 
                                                                                "Incremental.effectiveness" = array(,0), 
                                                                                "Final.effectiveness" = array(,0))
                                                                                        
        assign("TheTree", TheTree, .EnvironmentArvoRe)
        assign("markov.propertiesMAT", markov.propertiesMAT, .EnvironmentArvoRe)
  }

[Package ArvoRe version 0.1.6 Index]