Inclua o código que cria as funções simBin e testBin no inicio do script deste exercício , em seguida adicione as linhas de comando que criam os dados e calculam os p-valores do exercício 110.04 em um ciclo de 20 iterações ^tip1 para calcular 20 p-valores para cada esforço amostral, utilizando nSim = 100 nos cálculos de p-valor. Utilize a mesma ordem de criação de objetos dos exercícios anteriores, ou seja, dados10 a dados100 e depois p10 a p100.

Antes do início do ciclo adicione uma linha de comando para criar um data.frame denominado multExp ^tip2 contendo as variáveis de nome p10, p20, p50, p100 que irão armazenar os p-valores a cada ciclo. Além disso, também imediatamente antes de iniciar o ciclo do for fixe a semente aleatória com set.seed(22)^tip3. Dentro do ciclo for inclua uma linha com o código para armazenar os p-valores calculados na linha do multExp referente ao ciclo que está acontecendo ⁱ. Depois de terminado o ciclo crie o vetor poderTeste contendo a proporção de vezes que os p-valores foram menores do que 0.05 para cada um dos esforços amostrais, nomeando as posições do vetor com os mesmos nomes das variáveis do multExp.