#************************************************************************
# Trabalho 2      *******************************************************
# Script para o cálculo do teste de hipótese 
#
Amostra1 <- c(22,34,52,62,30,52,71,76,54,67)
Amostra2 <- c(40,64,84,56,59,83,66,90,77,84)
#
# Teste t, duas médias, amostras independentes
t.test(Amostra2,Amostra1,alternative = "greater")
#
# Teste F, duas variâncias
var.test(Amostra1,Amostra2)
#