OpasnetUtils/Apply.decisions: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(Created page with "Category:Opasnet Category:R tools {{method|moderator=|stub=Yes}} ==Description== apply.decisions takes a decision table and applies that to an assessment. dec is a deci...")
 
mNo edit summary
 
(9 intermediate revisions by 2 users not shown)
Line 1: Line 1:
[[Category:Opasnet]]
[[Category:Opasnet]]
[[Category:R tools]]
[[Category:R tools]]
[[Category:OpasnetUtils]]
{{method|moderator=|stub=Yes}}
{{method|moderator=|stub=Yes}}
==Similar to==
Functions apply.decisions and decisions.apply are depreciated. Consider using '''[[OpasnetUtils/CheckDecisions]]''' instead.
==Description==
==Description==
apply.decisions takes a decision table and applies that to an assessment.
apply.decisions takes a decision table and applies that to an assessment.


dec is a decision data.frame that must have columns Decision, Option, Variable, Cell, Change, Result. It can have several variables.
==Parameters==
* dec is a decision data.frame that must have columns Decision, Option, Variable, Cell, Change, Result. It can have several variables.


==Code==
==Code==


<rcode
The R code for this can be found here:
name="answer"
label="Initiate functions"
graphics="1"
>
library(OpasnetBaseUtils)
library(xtable)
 
n <- 5
 
# APPLY.DECISIONS ############## apply.decisions takes a decision table and applies that to an assessment.
## dec is a decision data.frame that must have columns Decision, Option, Variable, Cell, Change, Result. It can have several variables.
apply.decisions <- function(assessment) {
dec <- merge(assessment@decisions, assessment@dependencies, by.x = "Variable", by.y = "Name")
colnames(dec)[colnames(dec) == "Result.x"] <- "Result"
colnames(dec)[colnames(dec) == "Result.y"] <- "Name"
 
for(variables in unique(dec$Name)) { # Take one variable at a time.
dec.var <- dec[dec$Name == variables, ] # dec.var = variable-specific decisions
scenarios <- data.frame(temp = 1)


for(decisions in unique(dec.var$Decision)) { # Add BAU option to each decision and merge decisions.
https://www.opasnet.org/svn/opasnet_utils/trunk/R/ApplyDecisions.r
temp <- as.character(dec.var[dec.var$Decision == decisions, "Option"])
temp <- data.frame(Options = c(temp, "BAU"))
colnames(temp) <- decisions
scenarios <- merge(scenarios, temp)
}
var <- assessment@vars[[variables]]# as.character(dec$Name[1])]]
var@output <- merge(scenarios[colnames(scenarios) != "temp"], var@output)
for(s in 1:nrow(dec.var)) { # Each option row handled separately
cell <- gsub("^[ \t]+|[ \t]+$", "", as.character(dec.var$Cell[s])) # Leading and trailing whitespaces removed.
cell <- gsub(":[ \t]+", ":", cell) # Whitespaces removed after :
cell <- gsub(";[ \t]+", ";", cell) # Whitespaces removed after ;
cell <- gsub("[ \t]+:", ":", cell) # Whitespaces removed before :
cell <- gsub("[ \t]+;", ";", cell) # Whitespaces removed before ;
cell <- strsplit(cell, split = ";") # Separate cell identifiers (indices and locations)
cell <- strsplit(cell[[1]], split = ":")
cond <- as.character(dec.var$Decision[s])
cond <- var@output[, cond] == as.character(dec.var$Option[s]) # Only the rows with the relevant option.
for(r in 1:length(cell)) { # All Cell conditions extracted and combined with AND.
cond <- cond * (var@output[, cell[[r]][1]] == cell[[r]][2])
}
cond <- as.logical(cond)
if(dec.var$Change[s] == "Replace" )
{var@output[cond, "Result"] <- dec.var$Result[s]}
if(dec.var$Change[s] == "Add"    )
{var@output[cond, "Result"] <- as.numeric(dec.var$Result[s]) + var@output[cond, "Result"]}
if(dec.var$Change[s] == "Multiply")
{var@output[cond, "Result"] <- as.numeric(dec.var$Result[s]) * var@output[cond, "Result"]}
}
assessment@vars[[variables]] <- var
}
return(assessment)
}
</rcode>


==See also==
==See also==
Line 70: Line 24:
* [[OpasnetBaseUtils]]
* [[OpasnetBaseUtils]]
* [[Object-oriented programming in Opasnet]]
* [[Object-oriented programming in Opasnet]]
* [[Opasnet (R library)]]
* [[Decision]]
* [[Decision]]

Latest revision as of 09:14, 30 December 2012



Similar to

Functions apply.decisions and decisions.apply are depreciated. Consider using OpasnetUtils/CheckDecisions instead.

Description

apply.decisions takes a decision table and applies that to an assessment.

Parameters

  • dec is a decision data.frame that must have columns Decision, Option, Variable, Cell, Change, Result. It can have several variables.

Code

The R code for this can be found here:

https://www.opasnet.org/svn/opasnet_utils/trunk/R/ApplyDecisions.r

See also

Retrieved from "https://en.opasnet.org/index.php?title=OpasnetUtils/Apply.decisions&oldid=26926"