set.markov.nodes.properties {ArvoRe}R Documentation

~~function to do ... ~~

Description

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

Usage

set.markov.nodes.properties(TheTree, markov.propertiesMAT, column, node.number, Initial.rwd.cost = 0, Incremental.rwd.cost = 0, Final.rwd.cost = 0, Initial.rwd.effectiveness = 1, Incremental.rwd.effectiveness = 1, Final.rwd.effectiveness = 1)

Arguments

TheTree ~~Describe TheTree here~~
markov.propertiesMAT ~~Describe markov.propertiesMAT here~~
column ~~Describe column here~~
node.number ~~Describe node.number here~~
Initial.rwd.cost ~~Describe Initial.rwd.cost here~~
Incremental.rwd.cost ~~Describe Incremental.rwd.cost here~~
Final.rwd.cost ~~Describe Final.rwd.cost here~~
Initial.rwd.effectiveness ~~Describe Initial.rwd.effectiveness here~~
Incremental.rwd.effectiveness ~~Describe Incremental.rwd.effectiveness here~~
Final.rwd.effectiveness ~~Describe Final.rwd.effectiveness here~~

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(TheTree, markov.propertiesMAT, column, node.number, 
                                        Initial.rwd.cost = 0, 
                                        Incremental.rwd.cost = 0, 
                                        Final.rwd.cost = 0,
                                        Initial.rwd.effectiveness = 1, 
                                        Incremental.rwd.effectiveness = 1, 
                                        Final.rwd.effectiveness = 1     ) {
        
        require(abind)
        
        if (!is.numeric(node.number)) node.number <- as.numeric(node.number)
        if (!is.numeric(column)) column <- as.numeric(column)
        
        position.markov <- intersect(which((markov.propertiesMAT$Level == column)),
                                                                        which(markov.propertiesMAT$Node.N == node.number))
        position <- intersect(which((TheTree$Level == column)),which(TheTree$Node.N == node.number))
        
        if (length(position.markov) != 0) {
                markov.propertiesMAT$Node.name[position.markov] <- TheTree$Node.name[position]
                markov.propertiesMAT$Father[position.markov] <- TheTree$Father[position]
                markov.propertiesMAT$Father.Name[position.markov] <- TheTree$Father.Name[position]              
                markov.propertiesMAT$Initial.cost[position.markov] <- Initial.rwd.cost
                markov.propertiesMAT$Incremental.cost[position.markov] <- Incremental.rwd.cost
                markov.propertiesMAT$Final.cost[position.markov] <- Final.rwd.cost
                markov.propertiesMAT$Initial.effectiveness[position.markov] <- Initial.rwd.effectiveness
                markov.propertiesMAT$Incremental.effectiveness[position.markov] <- Incremental.rwd.effectiveness
                markov.propertiesMAT$Final.effectiveness[position.markov] <- Final.rwd.effectiveness
        } else {
                markov.propertiesLINE <- data.frame("Level" = column,
                                                                                        "Node.N" = node.number,
                                                                                        "Node.name" = TheTree$Node.name[position],
                                                                                        "Father" = TheTree$Father[position],
                                                                                        "Father.Name" = TheTree$Father.Name[position],
                                                                                        "Initial.cost" = Initial.rwd.cost, 
                                                                                        "Incremental.cost" = Incremental.rwd.cost, 
                                                                                        "Final.cost" = Final.rwd.cost,
                                                                                        "Initial.effectiveness" = Initial.rwd.effectiveness, 
                                                                                        "Incremental.effectiveness" = Incremental.rwd.effectiveness, 
                                                                                        "Final.effectiveness" = Final.rwd.effectiveness)
                markov.propertiesMAT <- abind(markov.propertiesMAT, markov.propertiesLINE, along=1)
                markov.propertiesMAT <- as.data.frame(markov.propertiesMAT)
                
                markov.propertiesMAT$Level <- as.numeric(as.character(markov.propertiesMAT$Level))
                markov.propertiesMAT$Node.N <- as.numeric(as.character(markov.propertiesMAT$Node.N))
                markov.propertiesMAT$Node.name <- (as.character(markov.propertiesMAT$Node.name))
                markov.propertiesMAT$Father <- as.numeric(as.character(markov.propertiesMAT$Father))
                markov.propertiesMAT$Father.Name <- (as.character(markov.propertiesMAT$Father.Name))
                markov.propertiesMAT$Initial.cost <- as.numeric(as.character(markov.propertiesMAT$Initial.cost))
                markov.propertiesMAT$Incremental.cost <- as.numeric(as.character(markov.propertiesMAT$Incremental.cost))
                markov.propertiesMAT$Final.cost <- as.numeric(as.character(markov.propertiesMAT$Final.cost))
                markov.propertiesMAT$Initial.effectiveness <- as.numeric(as.character(markov.propertiesMAT$Initial.effectiveness))
                markov.propertiesMAT$Incremental.effectiveness <- as.numeric(as.character(markov.propertiesMAT$Incremental.effectiveness))
                markov.propertiesMAT$Final.effectiveness <- as.numeric(as.character(markov.propertiesMAT$Final.effectiveness))

        }
        
        setutility(TheTree, column, node.number, Incremental.rwd.cost, .EnvironmentArvoRe)
        TheTree <- get("TheTree", .EnvironmentArvoRe)
        seteffectiveness(TheTree, column, node.number, Incremental.rwd.effectiveness, .EnvironmentArvoRe)
        
        assign("markov.propertiesMAT", markov.propertiesMAT, envir = .EnvironmentArvoRe)
        assign(".workstatus", "unsaved", .EnvironmentArvoRe)
  }

[Package ArvoRe version 0.1.6 Index]