?qt

qt(0.99,9)
qt(0.01,9,lower.tail=FALSE)

?qchisq

qchisq(0.9,11)

?df

qf(0.95,4,5)



tsur<-function(darabszam) {

library(stats)
  library(graphics)
  library(utils)
  
  xtengely<-seq(-3,3,0.01)
  
  for(i in 1:darabszam) {
    
  ytengely<-xtengely
  ytengelynorm<-xtengely
  
  for(j in 1:length(xtengely)){
  ytengely[j]<-dt(xtengely[j],i)
  ytengelynorm[j]<-dnorm(xtengely[j],0,1)

  }
  
  seged<-paste("tsuruseg",toString(i),".jpg",sep="")
  
  jpeg(seged)
  
  plot(xtengely,ytengely, ylim=c(0,0.4))
  lines(xtengely, ytengelynorm, col="GREEN")  
  
  dev.off()  
    
  }
  
}
  
tsur(10)  






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

head(koleszterin)

View(koleszterin)





koleszterin2<-subset(koleszterin,day==2)
View(koleszterin2)


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

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


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

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

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

head(koleszterin2)

head(koleszterin14)


?merge

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

View(kol)

head(kol)

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

View(kol)

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

View(kol)




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

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


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

head(koleszterinNA)

koleszterinNA$cholest14<-koleszterinNA$cholest2

head(koleszterinNA)


head(kol)
head(koleszterinNA)

kolegyes<-rbind(kol,koleszterinNA)

View(kolegyes)

save(kolegyes,file="kolegyes.RData")

load("kolegyes.RData")

View(kolegyes)