Käyttäjä:Paanpe/Testisivu

Pekan testailua

Mikä on painosi (kg)?: Mikä on pituutesi?: + Näytä koodi- Piilota koodi formula.input <- function(){ indeksi <- (paino / (pituus*pituus)) return(indeksi) } indeksi.paino <- new("ovariable", name = "indeksi.paino", formula = formula.input ) out <- EvalOutput (indeksi.paino, N = 10) print(xtable(out@output), type = "html") objects.put(indeksi.paino)

---

Toinen testi

+ Näytä koodi- Piilota koodi library(OpasnetUtils) library(xtable) dependencies <- data.frame( Name = c("exposure"), Key = c("muRtYjhkphoNPQJI") ) formula <- function(dependencies, ...) { ComputeDependencies(dependencies, ...) erf <- 1.5 # RR per ug / m3 background <- 100 / 100000 # cases per 100000 person-years population <- 50000 cases <- exposure * population * background * (erf - 1) return(cases) } data <- tidy(op_baseGetData("opasnet_base", "Op_en5675"), "health.impact") health.impact <- new("ovariable", name = "health.impact", formula = formula, dependencies = dependencies, data = data ) out <- EvalOutput(health.impact, N = 10) print(xtable(out@output), type = "html") objects.put(health.impact)