Training exposure: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(code and run updated)
 
(4 intermediate revisions by 2 users not shown)
Line 1: Line 1:
[[Category:Costs and valuations]]
[[Category:Costs and valuations]]
[[Category:Opasnet training]]
[[Category:Opasnet training]]
[[Category:Contains R code]]
{{variable|moderator=Jouni|stub=Yes}}
{{variable|moderator=Jouni|stub=Yes}}


Line 9: Line 10:
== Answer ==
== Answer ==


Default run [http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=apJZs3BtqdWiPOSQ apJZs3BtqdWiPOSQ]
<rcode embed=1 graphics=1>
 
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)
 
</rcode>


== Rationale ==
== Rationale ==
Line 15: Line 31:
===Data===
===Data===


<t2b index="Year,Observation" locations="Unit,Result,Description" unit="-">
<t2b index="Exposure agent,Year" obs="Result" desc="Description" unit="µg /m3">
2012|µg /m3|1 - 2|
PM2.5|2012|1 - 4|
2020|µg /m3|10 - 11|
PM2.5|2020|10 - 11|
</t2b>
</t2b>


=== Formula ===
=== Calculations ===


<rcode  
<rcode label="Initiate ovariable" name="initiate">
include="page:OpasnetUtils/Summary|name:summary"
label="Initiate ovariable"  
graphics="1"
>


library(OpasnetUtils) # relevant libraries
library(OpasnetUtils) # relevant libraries
library(xtable)
library(ggplot2)
# Get relevant data
data <- tidy(
op_baseGetData("opasnet_base", "Op_en5674"),
"exposure"
)


# Define ovariable
# Define ovariable


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


objects.put(exposure) # save for later use
objects.store(exposure) # save for later use


cat("Ovariable exposure saved. Write down the run key for further use.\n")
cat("Ovariable exposure saved.\n")
 
out <- EvalOutput(exposure) # for printing
 
summary(out) # fashionable design
 
ggplot(out@output, aes(x = exposureResult, weight = 1, fill = Year)) +
geom_density() +
theme_grey(base_size = 24)


</rcode>
</rcode>
Line 71: Line 64:


==Related files==
==Related files==
{{mfiles}}

Latest revision as of 08:18, 3 June 2015



Question

What is the exposure in the Training assessment?

Answer

+ Show code

Rationale

Data

Training exposure: Difference between revisions(µg /m3)
ObsExposure agentYearResultDescription
1PM2.520121 - 4
2PM2.5202010 - 11

Calculations

+ Show code

See also

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

Retrieved from "https://en.opasnet.org/index.php?title=Training_exposure&oldid=36876"