Difference between revisions of "OpasnetUtils/Init.assessment"
From Testiwiki
m |
m |
||
Line 18: | Line 18: | ||
label="Initiate functions" | label="Initiate functions" | ||
graphics="1" | graphics="1" | ||
+ | showcode="1" | ||
> | > | ||
# INIT.ASSESSMENT ########## init.assessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables. | # INIT.ASSESSMENT ########## init.assessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables. |
Revision as of 10:49, 15 June 2012
This page is a method.
The page identifier is Op_en5723 |
---|
Moderator:Nobody (see all) Click here to sign up. |
This page is a stub. You may improve it into a full page, and then a rating bar will appear here. |
Upload data
|
Description
init.assessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables.
NOTE! You must include the formula code from each variable page, otherwise formulas and dependencies are not updated.
Parameters
Dependencies
- A data.frame that has the structure of oassessment@name (Columns: Name, Identifier, Direction, Result)
Code
# INIT.ASSESSMENT ########## init.assessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables. ########### NOTE! You must include the formula code from each variable page, otherwise formulas and dependencies are not updated. ########### Parameters: ## dependencies: a data.frame that has the structure of oassessment@name (Columns: Name, Identifier, Direction, Result) init.assessment <- function(dependencies) { dependencies <- fetch(dependencies) decisions <- fetch(dependencies[dependencies$Result == "decisions", "Identifier"]) stakeholders <- fetch(dependencies[dependencies$Result == "stakeholders", "Identifier"]) probabilities <- fetch(dependencies[dependencies$Result == "probabilities", "Identifier"]) dependencies <- dependencies[!dependencies$Result %in% c("decisions", "stakeholders", "probabilities"), ] vars <- list() for(x in 1:nrow(dependencies)) { # Objects with names as aliases are created and filled with data from Opasnet Base. cat("Initialising variable ", as.character(dependencies$Name[x]), ".\n", sep = "") ident <- as.character(dependencies$Identifier[x]) temp <- tidy(op_baseGetData("opasnet_base", ident), direction = as.character(dependencies$Direction[x])) temp <- make.ovariable(temp) if(exists(paste("formula.", ident, sep = ""))) {temp@formula <- get(paste("formula.", ident, sep = ""))} if(exists(paste("dependencies.", ident, sep = ""))) {temp@dependencies <- get(paste("dependencies.", ident, sep = ""))} vars[as.character(dependencies$Result[x])] <- temp } assessment <- new("oassessment", dependencies = dependencies, decisions = decisions, stakeholders = stakeholders, probabilities = probabilities, vars = vars ) return(assessment) # Does it cause problems to use the wide direction? Anyway, there should be exactly one Result column. ## No it doesn't if the Observation columns are such as Unit, Result, Description. } |