# TP2 - Trabalho Prático Nº 2
#
# Considere uma população Poisson de parâmetro theta=4
# Pretende-se estudar as propriedades da estatística T = exp(-X_bar)
# em amostras de dimensão n=30 onde X_bar é a média amostral
#
# Em todos os cálculos considere inicialmente o comando "set.seed(123)" e
# 10000 amostras, cada uma de dimensão 30
#

1) Utilize o Monte Carlo (MC) para calcular o enviesamento de T 

2) Use o MC para estimar o desvio-padrão da distribuição por amostragem de T 

3) Use o MC para estimar a Pr[T>0.02] 

4) Proponha um intervalo de confiança a 90% para exp(-theta)


NOTA: cada grupo de trabalho terá que enviar as respostas num único ficheiro R 
      (apenas com os comandos), por e-mail para passos@iseg.ulisboa.pt. Esse 
      ficheiro R deverá chamar-se GRx.R onde x é o Nº do Grupo de Trabalho 
      indicado na aula.
      A estrutura do ficheiro deverá ser a seguinte:
           #
           # Trabalho Prático Nº 2
           # Grupo de Trabalho Nº x     
           #

           # Resposta 1
              ( ... comandos R ...)

           # Resposta 2
              ( ... comandos R ...)

           # Resposta 3
               ( ... comandos R ...)
 
            etc.