Difference between revisions of "ERFs of vitamins"

From Testiwiki
Jump to: navigation, search
(Data)
(codes updated)
Line 9: Line 9:
 
== Answer ==
 
== Answer ==
  
 +
<rcode embed=1>
 +
#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)
 +
 +
oprint(summary(ERF_vit))
 +
oprint(summary(threshold_vit))
 +
</rcode>
  
 
== Rationale ==
 
== Rationale ==
Line 14: Line 25:
 
=== Data ===
 
=== Data ===
  
<t2b index="Exposure agent,Trait,Response metric,Exposure route,Exposure metric,Exposure unit,ERF parameter,Scaling,Observation" locations="Threshold,ERF" desc="Description" unit="-">
+
* Response metric: 1 if the recommendation is not met, 0 if it is met.
Vitamin D|Vitamin D recommendation|1 if recommendation not met|Ingestion|Daily intake|ug /d|Step|None|7.5|100|
+
 
 +
<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|
 
</t2b>
 
</t2b>
  
 
=== Calculations ===
 
=== Calculations ===
  
<rcode embed=1 label="Initiate variables" name="initiate">
+
<rcode embed=1 label="Initiate ovariables (for developers only)" name="initiate">
 +
# This is code Op_en6866/initiate on page [[ERFs of vitamins]]
  
 
library(OpasnetUtils)
 
library(OpasnetUtils)
  
d <- opbase.data("Op_en6866")
+
d <- opbase.data("Op_en6866")[-1] #Remove Obs
d$Obs <- NULL
 
 
colnames(d) <- gsub(" ", "_", colnames(d))
 
colnames(d) <- gsub(" ", "_", colnames(d))
 
d$Exposure_agent <- gsub(" ", "_", d$Exposure_agent)
 
d$Exposure_agent <- gsub(" ", "_", d$Exposure_agent)
 
d$Result <- ifelse(d$Result == "", "0", as.character(d$Result))
 
d$Result <- ifelse(d$Result == "", "0", as.character(d$Result))
  
ERF <- Ovariable("ERF", data = d[d$Observation == "ERF", colnames(d) != "Observation"])
+
ERF_vit <- Ovariable("ERF_vit", data = d[d$Observation == "ERF", colnames(d) != "Observation"])
  
threshold <- Ovariable("Threshold", data = d[d$Observation == "Threshold", colnames(d) != "Observation"])
+
threshold_vit <- Ovariable("threshold_vit", data = d[d$Observation == "Threshold", colnames(d) != "Observation"])
  
objects.store(ERF, threshold)
+
objects.store(ERF_vit, threshold_vit)
cat("Ovariables ERF, threshold stored.\n")
+
cat("Ovariables ERF_vit, threshold_vit stored.\n")
 
</rcode>
 
</rcode>
  
 
==See also==
 
==See also==
  
==Keywords==
+
* [[Exposure-response function]]
  
 
==References==
 
==References==
Line 53: Line 66:
 
* [http://www.ncbi.nlm.nih.gov/pubmed/10232622 Vitamin D supplementation, 25-hydroxyvitamin D concentrations, and safety.]
 
* [http://www.ncbi.nlm.nih.gov/pubmed/10232622 Vitamin D supplementation, 25-hydroxyvitamin D concentrations, and safety.]
 
* [http://www.ncbi.nlm.nih.gov/pubmed/20511052 Low vitamin D status: definition, prevalence, consequences, and correction.]
 
* [http://www.ncbi.nlm.nih.gov/pubmed/20511052 Low vitamin D status: definition, prevalence, consequences, and correction.]
 
 
==Related files==
 

Revision as of 14:01, 19 April 2017



Question

What are exposure-response functions to vitamins?

Answer

+ Show code

Rationale

Data

  • Response metric: 1 if the recommendation is not met, 0 if it is met.
Difference between revisions of "ERFs of vitamins"(-)
ObsExposure agentResponseExposureExposure unitER functionScalingThresholdERFDescription
1Vitamin DVitamin D recommendationDaily intakeug /dStepNone7.5100

Calculations

+ Show code

See also

References