OpasnetUtils/Oassessment

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

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

+ Show code- Hide 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

+ Show code- Hide 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" ) )

movariable

Description

movariable takes a data.frame, a function, and a list and makes an ovariable out of them. It is a subfunction of make.ovariable and prevents infinite recursion of S4 methods.

Code

+ Show code- Hide code library(OpasnetBaseUtils) library(xtable) n <- 5 # MOVARIABLE ########## movariable takes a data.frame, a function, and a list and makes an ovariable out of them. It is a #####subfunction of make.ovariable and prevents infinite recursion of S4 methods. movariable <- function( data, formula, dependencies, name ) { output <- interpret(data) out <- new("ovariable", name = name, output = output, data = data, marginal = ifelse(colnames(output) %in% c("Result", "Unit"), FALSE, TRUE), formula = formula, dependencies = dependencies ) out <- update(out) return(out) }

See also

• OpasnetBaseUtils
• Object-oriented programming in Opasnet
• Opasnet (R library)