seteffectiveness {arvoRe}R Documentation

Usage

seteffectiveness(TheTree, column, node.number, pvalue, .EnvironmentArvoRe)

Arguments

TheTree
column
node.number
pvalue
.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, pvalue, .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) {
                TheTree$Payoff2[position] <- pvalue

                assign("TheTree", TheTree, envir = .EnvironmentArvoRe)
                assign(".workstatus", "unsaved", .EnvironmentArvoRe)
        }
  }

[Package arvoRe version 0.1.7 Index]