Ero sivun ”Hiekkalaatikko2” versioiden välillä

Nykyinen versio 4. kesäkuuta 2015 kello 10.21

@@ 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)
@@ Rivi 4: / Rivi 13: @@
 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 == "Rokotevalinta A200 B500", ]
+dat <- dat[dat$Kysymys == "Montako euroa on yksi QALY?", ]
-#ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + coord_flip()
+#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)
-pois <- as.numeric(pois$Result)
-dat <- dat[dat$KyselyID %in% pois , ]
-oprint(dat)
-oprint(pois)
-#hist(dat, labels=c("A","B","C","D"))
-#barplot(dat)
 </rcode>