new.tree {ArvoRe} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
new.tree()
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- 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) }