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

Versio 9. lokakuuta 2012 kello 16.22

Pekan testailua

Eka Testi



----
Toinen testi

<rcode 
	label="Nappi" 
>

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
+Eka Testi
+<rcode
+   label="nappi",
+   variable="luku"
+>
 ----
+Toinen testi
 <rcode
 	label="Nappi"
@@ Rivi 43: / Rivi 52: @@
 </rcode>
-----
-----

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

Versio 9. lokakuuta 2012 kello 16.22

Navigointivalikko