# TP3 - Trabalho Prático Nº 3
#
# Considere uma amostra com n=50 valores de salários/mês pagos por uma grande empresa.
# Pretende-se estudar as propriedades das estatísticas média amostral e mediana amostral
#
# No início do programa considere o comando "set.seed(123)"
# Se utilizar simulação considere 10000 simulações
#
# Dados:
x <- c( 864, 1565,  986, 1883, 2249,  633, 1121, 1928, 1151, 1038, 2426, 1034, 1337, 1179,  689, 1967,  825,  629,  903, 2397, 1914, 1363, 1276, 3610, 1300,
       1392, 1141, 1208,  866,  732, 2512, 1980, 1360, 1584,  611, 1062, 1494,  797,  894,  811,  727,  992,  991,  944,  737,  724,  812, 1048,  843, 1779,
        633, 1022, 1593,  708, 1163,  787,  713, 1483, 1942,  950, 1316,  682,  960,  852, 1637, 1029, 1624, 1630, 1581, 1019, 1485, 1259, 1395,  586, 1059,
        800,  956, 1235,  927,  697,  822, 1321,  995, 1565,  689, 1014, 3027, 1932, 1899,  758,  716, 1296,  919, 1302,  896,  770, 1550,  680, 1049, 1101 )


1) Obtenha uma estimativa da variância da média amostral

2) Obtenha uma estimativa da média da mediana amostral 

3) Obtenha uma estimativa do enviesamento da mediana amostral

4) Obtenha uma estimativa da variância da mediana amostral

5) Obtenha o intervalo de confiança a 95% para a mediana na população




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.