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

Nykyinen versio 9. lokakuuta 2012 kello 19.51

Pekan testailua


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)

@@ 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)
+}
+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)
+</rcode>
 ----
+Toinen testi
 <rcode
 	label="Nappi"
@@ Rivi 43: / Rivi 71: @@
 </rcode>
-----
-----

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

Nykyinen versio 9. lokakuuta 2012 kello 19.51

Navigointivalikko