set.markov.nodes.properties {ArvoRe} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
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)
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~~ |
~~ 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(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) }