select.origins {arvoRe} | R Documentation |
Usage
select.origins(TheTree, node.col, node.number)
Arguments
TheTree |
|
node.col |
|
node.number |
|
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, node.col, node.number) {
require(abind)
position <- intersect(which((TheTree$Level == node.col)),which(TheTree$Node.N == node.number))
ans <- TheTree[position,]
levelnodevalue <- node.col - 1
nodenumbervalue <- ans$Father[1] #[position]
while ( levelnodevalue > 0) {
position <- intersect(which((TheTree$Level == levelnodevalue)),which(TheTree$Node.N == nodenumbervalue))
subData <- TheTree[position,]
ans <- abind(subData, ans, along=1)
nodenumbervalue <- subData$Father[1]
levelnodevalue <- levelnodevalue - 1
}
ans <- as.data.frame(ans)
ans$Level <- as.numeric(ans$Level)
ans$Node.N <- as.numeric(ans$Node.N)
ans$Node.name <- as.character(ans$Node.name)
ans$Father <- as.numeric(ans$Father)
ans$Father.Name <- as.character(ans$Father.Name)
ans$Prob <- as.numeric(ans$Prob)
ans$Type <- as.character(ans$Type)
ans$Note <- as.character(ans$Note)
ans$Destiny <- as.character(ans$Destiny)
ans$Payoff1 <- as.numeric(as.character(ans$Payoff1))
ans$Payoff2 <- as.numeric(as.character(ans$Payoff2))
return(ans)
}
[Package
arvoRe version 0.1.7
Index]