Difference between revisions of "OpasnetUtils/Oassessment"
From Testiwiki
m |
m |
||
Line 19: | Line 19: | ||
label="Initiate functions" | label="Initiate functions" | ||
graphics="1" | graphics="1" | ||
+ | showcode="1" | ||
> | > | ||
# MAKE.OASSESSMENT ########## make.oassessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables. | # MAKE.OASSESSMENT ########## make.oassessment creates S4 assessment from dependencies data.frame, including decisions, stakeholders, probabilities, and variables. | ||
Line 77: | Line 78: | ||
label="Initiate functions" | label="Initiate functions" | ||
graphics="1" | graphics="1" | ||
+ | showcode="1" | ||
> | > | ||
# SETCLASS OASSESSMENT ################### Defines the S4 class "oassessment" which is the object type for open assessments. | # SETCLASS OASSESSMENT ################### Defines the S4 class "oassessment" which is the object type for open assessments. |
Revision as of 10:49, 15 June 2012
This page is a method.
The page identifier is Op_en5730 |
---|
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
|
Contents
make.oassessment
Description
make.oassessment 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
# MAKE.OASSESSMENT ########## make.oassessment 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) make.oassessment <- function(x) { x <- fetch(x) decisions <- fetch(x[x$Result == "decisions", "Identifier"]) stakeholders <- fetch(x[x$Result == "stakeholders", "Identifier"]) probabilities <- fetch(x[x$Result == "probabilities", "Identifier"]) dependencies <- x[!x$Result %in% c("decisions", "stakeholders", "probabilities"), ] vars <- list() for(i 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[i]), ".\n", sep = "") ident <- as.character(dependencies$Identifier[i]) data <- fetch(ident, direction = as.character(dependencies$Direction[i])) if(exists(paste("formula.", ident, sep = ""))) {formula <- get(paste("formula.", ident, sep = "")) } else { formula <- function(dependencies) {return(0)} } if(exists(paste("dependencies.", ident, sep = ""))) {depend <- get(paste("dependencies.", ident, sep = "")) } else { depend <- data.frame() } vars[[i]] <- make.ovariable( name = as.character(dependencies$Result[i]), data = data, formula = formula, dependencies = depend ) } names(vars) <- dependencies$Result assessment <- new("oassessment", dependencies = dependencies, decisions = decisions, stakeholders = stakeholders, probabilities = probabilities, vars = vars ) return(assessment) } |
setclass.oassessment
Description
Defines the S4 class "oassessment" which is the object type for open assessments.
Code
# SETCLASS OASSESSMENT ################### Defines the S4 class "oassessment" which is the object type for open assessments. temp <- setClass( "oassessment", representation( dependencies = "data.frame", decisions = "data.frame", probabilities = "data.frame", stakeholders = "data.frame", vars = "list" ) ) |