Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| — |
disciplinas:ce003:semana11 [2007/05/18 22:26] (atual) paulojus criada |
||
|---|---|---|---|
| Linha 1: | Linha 1: | ||
| + | ==== Aula 18/05/2007 ==== | ||
| + | |||
| + | Exemplo de comparação de eficiência de estimadores | ||
| + | |||
| + | <code R> | ||
| + | ## X ~ N(0,1) N=1000 amostras de tamanho 20 | ||
| + | sim1 <- matrix(rnorm(20*1000), nc=20) | ||
| + | medias1 <- apply(sim1,1,mean) | ||
| + | medianas1 <- apply(sim1,1,median) | ||
| + | var(medias1) | ||
| + | var(medianas1) | ||
| + | rm(sim1) | ||
| + | |||
| + | ## | ||
| + | ## X ~ N(3.1, 0,4/3) N=5000, amostras de tamanho 50 | ||
| + | sim2 <- matrix(rnorm(50*5000), nc=20) | ||
| + | medias2 <- apply(sim2,1,mean) | ||
| + | medianas2 <- apply(sim2,1,median) | ||
| + | var(medias2) | ||
| + | var(medianas2) | ||
| + | </code> | ||
