setnodename {arvoRe} | R Documentation |
Usage
setnodename(TheTree, column, node.number, nodename, .EnvironmentArvoRe)
Arguments
TheTree |
|
column |
|
node.number |
|
nodename |
|
.EnvironmentArvoRe |
|
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, column, node.number, nodename, .EnvironmentArvoRe) {
if (!is.numeric(node.number)) node.number <- as.numeric(node.number)
if (!is.numeric(column)) column <- as.numeric(column)
position <- intersect(which((TheTree$Level == column)),which(TheTree$Node.N == node.number))
if (length(position) >= 1) {
# old.father.name <- TheTree$Node.name[position]
TheTree$Node.name[position] <- nodename
position <- intersect(which((TheTree$Level == (column+1) )),which(TheTree$Father == node.number))
if (length(position) >= 1) {
TheTree$Father.Name[position] <- nodename
}
assign("TheTree", TheTree, envir = .EnvironmentArvoRe)
assign(".workstatus", "unsaved", .EnvironmentArvoRe)
}
}
[Package
arvoRe version 0.1.7
Index]