Ero sivun ”Hiekkalaatikko2” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Ei muokkausyhteenvetoa |
Ei muokkausyhteenvetoa |
||
| (24 välissä olevaa versiota 4 käyttäjän tekeminä ei näytetä) | |||
| Rivi 1: | Rivi 1: | ||
[[Luokka:Hiekkalaatikko]] | |||
[[:en:Apple|Have an apple!]]<br> | |||
[[:fi:Äiti|Mammahan se siinä]]<br> | |||
[[:de:Appfel|Keine Appfel]]<br> | |||
[[:se:Äpple|Äpple]]<br> | |||
[[:op_fi:Hiekkalaatikko|Boksi]]<br> | |||
[[:op_en:Sandbox|Bokx]]<br> | |||
<rcode live=1 showcode=-1 embed=1 graphics=1> | |||
library(OpasnetUtils) | |||
library(ggplot2) | |||
dat <- opbase.data("Op_fi4524", subset = 'Kysely') | |||
pois <- opbase.data("Op_fi4524", subset = 'Poistot') | |||
pois <- as.numeric(pois$Result) | |||
dat <- dat[!dat$KyselyID %in% pois , ] | |||
#dat <- dat[dat$Result != "", ] | |||
dat <- dat[dat$Kysymys == "Montako euroa on yksi QALY?", ] | |||
#ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + coord_flip()) | |||
#dat <- as.vector(table(factor(dat$Result))) | |||
dat <- as.vector(dat$Result) | |||
dat <- ifelse ((grepl(";", dat)), strsplit(dat, split = "; "), (ifelse (dat == "", "Tyhjä", dat))) | |||
dat <- as.factor(unlist(dat)) | |||
barplot(table(dat)) | |||
#oprint(dat) | |||
#oprint(pois) | |||
</rcode> | |||