Determinado teste de hipóteses, baseado na distribuição t de Student, foi realizado para verificar se existem evidências de
que o nível médio de emissão atmosférica de certo poluente por uma empresa do setor têxtil é superior a 10 partes por
milhão (ppm). Uma amostra de 17 medições do nível de emissão atmosférica da empresa em ppm foi coletada e o valor
observado da estatística de teste foi 3,84. O comando que fornece o valor correto para o p-valor do teste através do software
R é: