Estabeleça a semente aleatória do R logo no começo do seu script para o notaR poder corrigir seu exercícios corretamente:
set.seed(3)
Crie dois conjuntos de dados com os seguintes nomes:
conj1: uma amostra de vinte observações de uma distribuição normal^[rnorm] com média 7.5 e desvio padrão 2.2
conj2: vinte observações de uma distribuição normal com média 6 e desvio padrão 1.9

• Calcule a diferença entre as médias e guarde no objeto chamado dif1_2
• Carregue o arquivo simulaT.r diretamente do seu diretório de trabalho com: source("simulaT.r")
• Utilize a função ^[simulaT] para testar a hipótese que as médias das amostras são diferentes. Guarde o resultado da simulação no objeto simBi
• Extraia o p_valor do simBi e atribua ao objeto pBi
• Teste agora que a média da primeira amostra é maior que a segunda. Guarde os resultados desse novo teste no objeto simUni e o respectivo p_valor no objeto pUni
• Utilize agora a função do R t.test() para testar as mesmas duas hipóteses. Guarde as saídas de cada um dos teste t nos objetos tBi e tUni. Armazene os respectivos p valores nos objetos ptBi e ptUni, respectivamente.