setwd("") ############# one sample t-test ################# T<-read.csv("leveltetu.csv") summary(T) attach(T) hist(x,col="purple",main="histogram of a") plot(density(x),main="Density estimate of a") qqnorm(x); qqline(x) mean(x) ?t.test t.test(T,mu=19) t.test(T,alternative="g",mu=19) t.test(T,alternative="less",mu=19) t.test(T,alternative="g",mu=15) ############### paired t-test ############################### intake<-read.csv("intake.csv") intake summary(intake) attach(intake) hist(post-pre) plot(density(post-pre), main="surusegfuggveny") qqnorm(post-pre);qqline(post-pre) t.test(pre,post, paired=TRUE, conf.level=0.99) fogyas<-read.csv("befafter.csv") fogyas attach(fogyas) hist(AFTER-BEFORE) t.test(BEFORE,AFTER,paired=TRUE) t.test(BEFORE,AFTER,paired=TRUE,alternative="g") ############################ independent t-test ############################# b<-read.csv("Zootaxadatok.csv") b attach(b) hist(Szem_H,col="cyan4",main="Himek szeme") hist(Szem_N,col="indianred2",main="Nostenyek szeme") hist(Fejteto_H,col="darkolivegreen2",main="Himek fejteto") hist(Fejteto_N,col="brown1",main="Nostenyek fejteto") hist(Hossz_H,col="darkslategray",main="Himek hossza") hist(Hossz_N,col="darksalmon",main="Nostenyek hossza") var.test(Szem_H,Szem_N) t.test(Szem_H, Szem_N) var.test(Fejteto_H,Fejteto_N) var(Fejteto_H,na.rm=TRUE) boxplot(Fejteto_H,Fejteto_N) t.test(Fejteto_H,Fejteto_N,var.equal=FALSE) var.test(Hossz_H,Hossz_N) t.test(Hossz_H, Hossz_N,var.equal=FALSE)