Training exposure: Difference between revisions

Revision as of 06:09, 26 May 2012

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


cat("Initiation successful. Now starting the model.\n")

out <- make.ovariable(
	data = fetch("Op_en5674"),
	formula = formula.Op_en5674,
	dependencies = dependencies.Op_en5674
)

out
print(out, iter = 1:5)
plot(out)

Rationale

Data

Training exposure: Difference between revisions(-)
Obs	Year	Unit	Result	Description
1	2012	ug/m3	1 - 2
2	2020	ug/m3	10 - 11

Formula

+ Show code - Hide code


microenvironment.concentration <- data.frame(
	Microenvironment = c("Home", "Other"),
	Unit = "ug/m3",
	Result = c(1, 2)
)

microenvironment.time <- data.frame(
	Microenvironment = c("Home", "Other"),
	Unit = "fraction",
	Result = c(0.7, 0.3)
)

dependencies.Op_en5674 <- data.frame(
	Name = "", 
	Identifier = "", 
	Direction = "", 
	Result = c("microenvironment.concentration", "microenvironment.time")
)


formula.Op_en5674 <- function(x) {
	out <- make.ovariable(fetch(x[1, "Result"])) * make.ovariable(fetch(x[2, "Result"]))
	out <- tapply(out, out@sample[c("Iter", "Unit")], sum)
	return(out)
}

**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

Training exposure: Difference between revisions

Revision as of 06:09, 26 May 2012

Contents

Question

Answer

Rationale

Data

Formula

See also

Keywords

References

Related files

Navigation menu

@@ Line 13: / Line 13: @@
 	label="Run code"
 	graphics="1"
-	include="
+	include="page:Opasnet_(R_library)|name:answer"
-		page:Object-oriented_programming_in_Opasnet|name:answer|
-		page:OpasnetBaseUtils|name:generic|
-		page:Training_exposure|name:formula
-	"
 >
 cat("Initiation successful. Now starting the model.\n")
-library(xtable)
-formula.Op_en5674(dependencies.Op_en5674)
 out <- make.ovariable(
 	data = fetch("Op_en5674"),
 	formula = formula.Op_en5674,
-	dependencies = dependencies.Op_en5674)
+	dependencies = dependencies.Op_en5674
+)
-print(out)
+out
+print(out, iter = 1:5)
 plot(out)
@@ Line 49: / Line 44: @@
 	name="formula"
 	label="Initiate functions"
+	include="page:Opasnet_(R_library)|name:answer"
+	graphics="1"
 >
-dependencies.Op_en5674 <- list(
+microenvironment.concentration <- data.frame(
-	microenvironment.concentration = data.frame(
+	Microenvironment = c("Home", "Other"),
-		Microenvironment = c("Home", "Other"),
+	Unit = "ug/m3",
-		Unit = "ug/m3",
+	Result = c(1, 2)
-		Result = c(1, 2)),
+)
-	microenvironment.time = data.frame(
-		Microenvironment = c("Home", "Other"),
+microenvironment.time <- data.frame(
-		Unit = "ug/m3",
+	Microenvironment = c("Home", "Other"),
-		Result = c(0.7, 0.3))
+	Unit = "fraction",
+	Result = c(0.7, 0.3)
 )
+dependencies.Op_en5674 <- data.frame(
+	Name = "",
+	Identifier = "",
+	Direction = "",
+	Result = c("microenvironment.concentration", "microenvironment.time")
+)
 formula.Op_en5674 <- function(x) {
-	ueConc <- make.ovariable(x$microenvironment.concentration)
+	out <- make.ovariable(fetch(x[1, "Result"])) * make.ovariable(fetch(x[2, "Result"]))
-	ueTime <- make.ovariable(x$microenvironment.time)
-	out <- ueConc * ueTime
 	out <- tapply(out, out@sample[c("Iter", "Unit")], sum)
 	return(out)