Ero sivun ”Hiekkalaatikko2” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Ei muokkausyhteenvetoa |
Ei muokkausyhteenvetoa |
||
| Rivi 15: | Rivi 15: | ||
dat <- as.vector(dat$Result) | dat <- as.vector(dat$Result) | ||
dat <- ifelse ((grepl(";", dat)), strsplit(dat, split = "; "), (ifelse (dat == "", "Tyhjä", dat))) | dat <- ifelse ((grepl(";", dat)), strsplit(dat, split = "; "), (ifelse (dat == "", "Tyhjä", dat))) | ||
dat <- as.factor(unlist(dat)) | dat <- as.factor(unlist(dat)) | ||
barplot(table(dat)) | barplot(table(dat)) | ||
oprint(dat) | #oprint(dat) | ||
#oprint(pois) | #oprint(pois) | ||
</rcode> | </rcode> | ||
Versio 20. elokuuta 2014 kello 11.46