Training exposure: Difference between revisions

Latest revision as of 08:18, 3 June 2015

This page is a knowledge crystal of subtype variable. The page identifier is Op_en5674
Moderator:Jouni (see all)
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5674}}

Question

What is the exposure in the Training assessment?

Answer

+ Show code - Hide code


library(OpasnetUtils)
library(ggplot2)

objects.latest("Op_en5674", code_name = "initiate")
exposure
exposure <- EvalOutput(exposure) # for printing

oprint(summary(exposure)) # fashionable design

ggplot(exposure@output, aes(x = exposureResult, weight = 1, fill = Year)) + 
	geom_density() +
	theme_grey(base_size = 24)

Rationale

Data

Training exposure: Difference between revisions(µg /m3)
Obs	Exposure agent	Year	Result	Description
1	PM2.5	2012	1 - 4
2	PM2.5	2020	10 - 11

Calculations

+ Show code - Hide code


library(OpasnetUtils) # relevant libraries

# Define ovariable

exposure <- Ovariable("exposure", ddata = "Op_en5674")
colnames(exposure@data) <- gsub("[ \\.]", "_", colnames(exposure@data))

objects.store(exposure) # save for later use

cat("Ovariable exposure saved.\n")

**Materials and examples for training in Opasnet and open assessment**
Help pages	Wiki editing • How to edit wikipages • Quick reference for wiki editing • Drawing graphs • Opasnet policies • Watching pages • Writing formulae • Word to Wiki • Wiki editing Advanced skills
Training assessment (examples of different objects)	Training assessment • Training exposure • Training health impact • Training costs • Climate change policies and health in Kuopio • Climate change policies in Kuopio
Methods and concepts	Assessment • Variable • Method • Question • Answer • Rationale • Attribute • Decision • Result • Object-oriented programming in Opasnet • Universal object • Study • Formula • OpasnetBaseUtils • Open assessment • PSSP
Terms with changed use	Scope • Definition • Result • Tool

Keywords

References

Related files

@@ Line 1: / Line 1: @@
 [[Category:Costs and valuations]]
+[[Category:Opasnet training]]
+[[Category:Contains R code]]
 {{variable|moderator=Jouni|stub=Yes}}
@@ Line 8: / Line 10: @@
 == Answer ==
-<t2b index="Year,Observation" locations="Unit,Result,Description" unit="-">
+<rcode embed=1 graphics=1>
-|ug/m3|1 - 2|
-|ug/m3|10 - 11|
+library(OpasnetUtils)
-</t2b>
+library(ggplot2)
+objects.latest("Op_en5674", code_name = "initiate")
+exposure
+exposure <- EvalOutput(exposure) # for printing
-<rcode
+oprint(summary(exposure)) # fashionable design
-	name="answer"
-	label="Run code"
-	include="
-		page:Object-oriented_programming_in_Opasnet|name:answer|
-		page:OpasnetBaseUtils|name:generic|
-		page:Training_exposure|name:formula
-	"
->
-out <- op_baseGetData("opasnet_base", "Op_en5674")
+ggplot(exposure@output, aes(x = exposureResult, weight = 1, fill = Year)) +
-colnames(out)[colnames(out) == "obs.1"] <- "Row"
+	geom_density() +
-out <- tidy(out , direction = "wide")
+	theme_grey(base_size = 24)
-print(out)
-out <- make.ovariable(out)
-cat("Computed training exposures.\n")
-print(out)
-print(formula.Op_en5674(dependencies.Op_en5674))
-cat("Computed training exposures.\n")
 </rcode>
@@ Line 38: / Line 29: @@
 == Rationale ==
-=== Formula ===
+===Data===
+<t2b index="Exposure agent,Year" obs="Result" desc="Description" unit="µg /m3">
+PM2.5|2012|1 - 4|
+PM2.5|2020|10 - 11|
+</t2b>
+=== Calculations ===
-<rcode
+<rcode label="Initiate ovariable" name="initiate">
-	name="formula"
-	label="Initiate functions"
-	include="
-		page:Object-oriented_programming_in_Opasnet|name:answer|
-		page:OpasnetBaseUtils|name:generic
-	"
->
-cat("Initiation successful. Now starting the model.\n")
+library(OpasnetUtils) # relevant libraries
-############ tapply of ovariables applies a function to each cell of a ragged array, that is to each (non-empty) group of values given by a unique combination of the levels of certain factors.
+# Define ovariable
-### parameters (other parameters are as in generic tapply):
-### X an ovariable
-setMethod(f = "tapply",
+exposure <- Ovariable("exposure", ddata = "Op_en5674")
-	signature = signature(X = "ovariable"),
+colnames(exposure@data) <- gsub("[ \\.]", "_", colnames(exposure@data))
-	definition = function(X, INDEX, FUN = NULL, ..., simplify = TRUE) {
-		out <- as.data.frame(as.table(tapply(X@sample$Result, INDEX, FUN, ..., simplify = TRUE)))
-		X@sample <- out
-		return(X)
-	}
-)
-formula.Op_en5674 <- function(x) {
+objects.store(exposure) # save for later use
-	ueConc <- make.ovariable(x$microenvironment.concentration)
-	ueTime <- make.ovariable(x$microenvironment.time)
-	out <- ueConc * ueTime
-	out <- tapply(out, out@sample[c("Iter", "Unit")], sum)
-	return(out)
-}
-dependencies.Op_en5674 <- list(
+cat("Ovariable exposure saved.\n")
-	microenvironment.concentration = data.frame(
-		Microenvironment = c("Home", "Other"),
-		Unit = "ug/m3",
-		Result = c(1, 2)),
-	microenvironment.time = data.frame(
-		Microenvironment = c("Home", "Other"),
-		Unit = "ug/m3",
-		Result = c(0.7, 0.3))
-)
 </rcode>
@@ Line 87: / Line 55: @@
 ==See also==
-{{urgenche}}
+{{Opasnet training}}
 ==Keywords==
@@ Line 96: / Line 64: @@
 ==Related files==
-{{mfiles}}

Training exposure: Difference between revisions

Latest revision as of 08:18, 3 June 2015

Contents

Question

Answer

Rationale

Data

Calculations

See also

Keywords

References

Related files

Navigation menu