ERFs of vitamins: Difference between revisions

Latest revision as of 06:59, 16 July 2019

This page is a knowledge crystal of subtype variable. The page identifier is Op_en6866
Moderator:Jouni (see all)

Upload data {{#opasnet_base_link:Op_en6866}}

Question

What are exposure-response functions to vitamins?

Answer

+ Show code - Hide code

#This is code Op_en6866/ on page [[ERFs of vitamins]]

library(OpasnetUtils)
objects.latest("Op_en6866", code_name="initiate")
ERF_vit <- EvalOutput(ERF_vit)
threshold_vit <- EvalOutput(threshold_vit)

cat("ERF_vit\n")
oprint(summary(ERF_vit))
cat("threshold_vit\n")
oprint(summary(threshold_vit))

Rationale

Data

Response metric: 1 if the recommendation is not met, 0 if it is met.

ERFs of vitamins: Difference between revisions(-)
Obs	Exposure agent	Response	Exposure	Exposure unit	ER function	Scaling	Threshold	ERF	Description
1	Vitamin D	Vitamin D recommendation	Daily intake	ug /d	Step	None	10	100	Finnish nutrition recommendations 2014

Finnish nutrition recommendations 2014^[1]

Calculations

+ Show code - Hide code

# This is code Op_en6866/ERF_vit2 on page [[ERF of vitamins]]
# Note! This version has ERF and threshold in the same ovariable.

library(OpasnetUtils)

ERF_vit <- Ovariable("ERF_vit", ddata = "Op_en6866")
colnames(ERF_vit@data) <- gsub(" ", "_", colnames(ERF_vit@data))

objects.store(ERF_vit)
cat("Ovariable ERF_vit stored.\n")

+ Show code - Hide code

# This is code Op_en6866/initiate on page [[ERFs of vitamins]]

library(OpasnetUtils)

d <- opbase.data("Op_en6866")[-1] #Remove Obs
colnames(d) <- gsub(" ", "_", colnames(d))
d$Result <- ifelse(d$Result == "", "0", as.character(d$Result))

ERF_vit <- Ovariable("ERF_vit", data = d[d$Observation == "ERF", colnames(d) != "Observation"])

threshold_vit <- Ovariable("threshold_vit", data = d[d$Observation == "Threshold", colnames(d) != "Observation"])

objects.store(ERF_vit, threshold_vit)
cat("Ovariables ERF_vit, threshold_vit stored.\n")

References

↑ Valtion ravitsemusneuvottelukunta. Suomalaiset ravitsemussuositukset 2014. [Finnish nutrition recommendations 2014] [1]

[1] Valtion ravitsemusneuvottelukunta. Suomalaiset ravitsemussuositukset 2014. [Finnish nutrition recommendations 2014] [1]

[1]

@@ Line 30: / Line 30: @@
 <t2b index="Exposure agent,Response,Exposure,Exposure unit,ER function,Scaling,Observation" locations="Threshold,ERF" desc="Description" unit="-">
-Vitamin D|Vitamin D recommendation|Daily intake|ug /d|Step|None|7.5|100|
+Vitamin D|Vitamin D recommendation|Daily intake|ug /d|Step|None|10|100|Finnish nutrition recommendations 2014
 </t2b>
+Finnish nutrition recommendations 2014<ref>Valtion ravitsemusneuvottelukunta. Suomalaiset ravitsemussuositukset 2014. [Finnish nutrition recommendations 2014] [https://www.evira.fi/globalassets/vrn/pdf/ravitsemussuositukset_2014_fi_web.3_es-1.pdf]</ref>
 === Calculations ===
+<rcode name="ERF_vit2" label="Initiate ERF_vit" embed=1>
+# This is code Op_en6866/ERF_vit2 on page [[ERF of vitamins]]
+# Note! This version has ERF and threshold in the same ovariable.
+library(OpasnetUtils)
+ERF_vit <- Ovariable("ERF_vit", ddata = "Op_en6866")
+colnames(ERF_vit@data) <- gsub(" ", "_", colnames(ERF_vit@data))
+objects.store(ERF_vit)
+cat("Ovariable ERF_vit stored.\n")
+</rcode>
 <rcode embed=1 label="Initiate ovariables (for developers only)" name="initiate">
@@ Line 42: / Line 57: @@
 d <- opbase.data("Op_en6866")[-1] #Remove Obs
 colnames(d) <- gsub(" ", "_", colnames(d))
-d$Exposure_agent <- gsub(" ", "_", d$Exposure_agent)
 d$Result <- ifelse(d$Result == "", "0", as.character(d$Result))

ERFs of vitamins: Difference between revisions

Latest revision as of 06:59, 16 July 2019

Contents

Question

Answer

Rationale

Data

Calculations

See also

References

Navigation menu