Difference between revisions of "Training health impact"

From Testiwiki
Jump to: navigation, search
(data added)
(code cleaned)
Line 12: Line 12:
 
name="answer"  
 
name="answer"  
 
label="Run code"  
 
label="Run code"  
 +
graphics="1"
 
include="
 
include="
 
page:Object-oriented_programming_in_Opasnet|name:answer|
 
page:Object-oriented_programming_in_Opasnet|name:answer|
Line 17: Line 18:
 
page:Training_health_impact|name:formula
 
page:Training_health_impact|name:formula
 
"
 
"
 +
variables="name:population|description:What is the size of the population|default:100000"
 
>
 
>
  
Line 24: Line 26:
 
library(OpasnetBaseUtils)
 
library(OpasnetBaseUtils)
  
out <- tidy(op_baseGetData("opasnet_base", "Op_en5675"), direction = "wide")
 
 
out <- make.ovariable(
 
out <- make.ovariable(
data = out,
+
data = fetch("Op_en5675"),
 
formula = formula.Op_en5675,
 
formula = formula.Op_en5675,
 
dependencies = dependencies.Op_en5675)
 
dependencies = dependencies.Op_en5675)
cat("Computing training exposures.\n")
+
 
 
print(out)
 
print(out)
 
plot(out)
 
plot(out)
Line 49: Line 50:
 
name="formula"  
 
name="formula"  
 
label="Initiate functions"  
 
label="Initiate functions"  
include="
 
page:Object-oriented_programming_in_Opasnet|name:answer|
 
page:OpasnetBaseUtils|name:generic|
 
page:Training_exposure|name:formula
 
"
 
variables="name:population|description:What is the size of the population|default:100000"
 
 
>
 
>
  
cat("Initiation successful. Now starting the model.\n")
+
dependencies.Op_en5675 <- list(
 
+
exposure = "Op_en5674", # formula.Op_en5674(dependencies.Op_en5674), # Training exposure
library(xtable)
+
erf = data.frame(Unit = "RR per ug/m3", Result = 1.5),
out <- make.ovariable(
+
population = population,
data = "0 - 100000",
+
background = 100 / 100000 # cases per 100000 person-years
formula = formula.Op_en5675,
+
)
dependencies = dependencies.Op_en5675)
 
cat("Computing training health impact.\n")
 
 
 
make.ovariable(dependencies.Op_en5675)
 
  
print(out)
+
formula.Op_en5675 <- function(x) {
out <- update(out)
+
population <- make.ovariable(x$population)
print(out)
+
background <- make.ovariable(x$background)
 +
exposure <- make.ovariable(fetch(x$exposure))
 +
erf <- make.ovariable(x$erf)
 +
cases <- population * background * exp(exposure * log(erf))
 +
return(cases)
 +
}
  
 
</rcode>
 
</rcode>

Revision as of 20:59, 21 May 2012



Question

What is the health impact in the Training assessment?

Answer

What is the size of the population:

+ Show code

Rationale

Data

Difference between revisions of "Training health impact"(-)
ObsYearUnitResultDescription
12012cases/year10 - 100
22020cases/year15 - 150

Formula

+ Show code

See also

Materials and examples for training in Opasnet and open assessment
Help pages Wiki editingHow to edit wikipagesQuick reference for wiki editingDrawing graphsOpasnet policiesWatching pagesWriting formulaeWord to WikiWiki editing Advanced skills
Training assessment (examples of different objects) Training assessmentTraining exposureTraining health impactTraining costsClimate change policies and health in KuopioClimate change policies in Kuopio
Methods and concepts AssessmentVariableMethodQuestionAnswerRationaleAttributeDecisionResultObject-oriented programming in OpasnetUniversal objectStudyFormulaOpasnetBaseUtilsOpen assessmentPSSP
Terms with changed use ScopeDefinitionResultTool


Keywords

References


Related files

<mfanonymousfilelist></mfanonymousfilelist>