Ero sivun ”Käyttäjä:Paanpe/Testisivu” versioiden välillä

Versio 9. lokakuuta 2012 kello 19.41

Pekan testailua


formula.input <- function(){

     indeksi <- (paino / (pituus*pituus))

     return(indeksi)
}

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)

@@ Rivi 1: / Rivi 1: @@
 Pekan testailua
+<rcode variables="
+name:Paino|description:Mikä on painosi (kg)?|default:70|
+name:Pituus|description:Mikä on pituutesi?|default:180
+">
+formula.input <- function(){
+     indeksi <- (paino / (pituus*pituus))
+     return(indeksi)
+}
+</rcode>
 ----

Ero sivun ”Käyttäjä:Paanpe/Testisivu” versioiden välillä

Versio 9. lokakuuta 2012 kello 19.41

Navigointivalikko