# Verihiutaleaineiston syöttö R-datakehikoksi. Tässä tiedostossa on
# valmiiksi kirjoitettuna komennot, joilla aineisto luotaisiin 
# interaktiivisesti konsoli-ikkunassa. Nyt tämä tiedosto luetaan
# R-ajovirtaan sisään funktiolla 'source()';

# y = verihiutaletiheys,
# x = tutkimusryhmä, määritellään tekijäksi, jonka tasot 2 ja 1
# Havaintojen sisäänluku
y <- c(65, 90, 120, 126, 190, 480, # ensin koeryhmän 6 havaintoa
  12, 16, 18, 20, 25, 32, 35, 40, 47, 60, 95, 112, 150)
x <- factor( c(rep(2,6), rep(1,length(y)-6)), # tekijän tasot
    labels=c(" vert.ryhmä", " koeryhmä") )    # tasojen nimet
# Liitetään x ja y datakehikkoon ja annetaan siinä niille 
# uudet muuttujanimet
plat <- data.frame(steroid=x, platelet=y)