set.markov.nodes.properties {arvoRe} | R Documentation |
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 |
|
markov.propertiesMAT |
|
column |
|
node.number |
|
Initial.rwd.cost |
|
Incremental.rwd.cost |
|
Final.rwd.cost |
|
Initial.rwd.effectiveness |
|
Incremental.rwd.effectiveness |
|
Final.rwd.effectiveness |
|
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.7
Index]