Training exposure

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

Training exposure(-)

Obs	Year	Unit	Result	Description
1	2012	ug/m3	1 - 2
2	2020	ug/m3	10 - 11

+ Show code- Hide code cat("Initiation successful. Now starting the model.\n") library(xtable) out <- op_baseGetData("opasnet_base", "Op_en5674") # Downloads the data on the data table of this page. colnames(out)[colnames(out) == "obs.1"] <- "Row" # Changes the column name "obs.1" to "Row" out <- tidy(out , direction = "wide") print(out) colnames(out)[colnames(out) == "result"] <- "Result" out <- make.ovariable( data = out, formula = formula.Op_en5674, dependencies = dependencies.Op_en5674) cat("Computing training exposures.\n") print(out)

⇤--#: . The automatic Obs column creates a column "obs.1" in Opasnet Base; it should replace "Obs" instead. --Jouni 22:15, 14 May 2012 (EEST) (type: truth; paradigms: science: attack)

⇤--#: . The column name is "result" although it should be "Result". This should be converted automatically but now it is done by hand in the code. --Jouni 22:15, 14 May 2012 (EEST) (type: truth; paradigms: science: attack)

Rationale

Formula

+ Show code- Hide code dependencies.Op_en5674 <- list( 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)) ) formula.Op_en5674 <- function(x) { 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) }

Related files

<mfanonymousfilelist></mfanonymousfilelist>