Ero sivun ”Hiekkalaatikko2” versioiden välillä

@@ Rivi 1: / Rivi 1: @@
 <rcode live=1 showcode=-1 embed=1>
-v4 <- c("a", "b", "c")
+library(OpasnetUtils)
-v8 <- c("d", "e", "f")
+library(ggplot2)
-v9 <- c("g", "h", "i", "j")
+dat <- opbase.data("Op_fi4524", subset = 'Kysely')
-v10 <- c("k", "l")
+#dat <- dat[dat$Kysymys == "Rokotevalinta A200 B500", ]
+ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + coord_flip()
+#dat <- as.vector(table(factor(dat$Result)))
+#oprint(dat)
-	for (var in ) {
+#hist(dat, labels=c("A","B","C","D"))
-	print(var)
+#barplot(dat)
-	if (length(var) > 1) { y <- var[1]
-		for (element in 2:length(var)) y <- paste(y, var[element], sep=";")
-		print(var)
-		var <- y
-		print(var)
-		}
-	}
-print(v4)
-print(v8)
-print(v9)
-print(v10)
 </rcode>

Versio 13. elokuuta 2014 kello 09.10