kocka<-round(runif(500,0.5,6.5))

jpeg('elsomentes.jpg')

hist(kocka)

dev.off()

koleszterin<-read.table("cholestg.txt",header=TRUE)

head(koleszterin)
koleszterin

koleszterin2<-subset(koleszterin,day==2)
koleszterin2
koleszterin2<-koleszterin2[c("patient","group","cholest")]
koleszterin2

colnames(koleszterin2)<-c("patient","group","cholest2")

koleszterin14<-subset(koleszterin,day==14)

koleszterin14<-koleszterin14[c("patient","group","cholest")]


colnames(koleszterin14)<-c("patient","group","cholest14")

koleszterin14

kol<-merge(koleszterin2,koleszterin14,by=c("patient","group"))

koleszterinNA<-subset(koleszterin,is.na(day))

koleszterinNA<-koleszterinNA[c(1,2,4)]

colnames(koleszterinNA)<-c("patient","group","cholest2")

koleszterinNA$cholest14<-koleszterinNA$cholest2
koleszterinNA

kolegyes<-rbind(kol,koleszterinNA)

kolegyes

?t.test


# Az órán a következő sorban található paranccsal futtatuk le a független kétmintás t-próbát. 
# Sajnos rosszul töltöttük ki az argumentumokat. A vizsgált cholest2 változót a group szerint két vektorra 
# Kell szétszedni és a szétszedett vektorokat kell megadni a függvénynek 

# Órai hibás futtatás: t.test(kolegyes$cholest2,kolegyes$group)

# Helyes futtatás (a negyedik órán más lehetőségeket is tanítottam (hétfői csoportnak fogok))

t.test(subset(kolegyes,group==1)$cholest2,subset(kolegyes,group==2)$cholest2)