setutility {ArvoRe} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
setutility(TheTree, column, node.number, pvalue, .EnvironmentArvoRe)
TheTree |
~~Describe TheTree here~~ |
column |
~~Describe column here~~ |
node.number |
~~Describe node.number here~~ |
pvalue |
~~Describe pvalue here~~ |
.EnvironmentArvoRe |
~~Describe .EnvironmentArvoRe 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, 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$Payoff1[position] <- pvalue assign("TheTree", TheTree, envir = .EnvironmentArvoRe) assign(".workstatus", "unsaved", .EnvironmentArvoRe) } }