#Teste t de student e teste f entre variāncias. a=c(37,140,14,79,3,175,98,126,10,18,119,11,1,67,59,42,65,54,65,29,51,57,5,21,66,9,77,26,79,39,14,69,84,18,48) # alunos que estudaram pelo menos 1 ano em escola particular b=c(64,151,50,22,32,26,21,43,61,100,32,102,9,113,83,73,103) # alunos que estudram todos os anos em escola da rede pśblica var.test(a,b) #teste F entre variāncias t.test(a,b,var.equal=TRUE) #teste t de Student mean(a) mean(b) sd(a) sd(b) boxplot(b,a, names = c("private","public"), main="Studens origin from public or private high school", xlab = "", ylab = "Total access")