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.
| Ambos lados da revisão anterior Revisão anterior | Próxima revisão Ambos lados da revisão seguinte | ||
|
disciplinas:ce223:comandos2008 [2008/05/05 16:02] paulojus |
disciplinas:ce223:comandos2008 [2008/05/05 16:08] paulojus |
||
|---|---|---|---|
| Linha 519: | Linha 519: | ||
| by(d4[,4],d4$sexo,function(x)as.character(x)) | by(d4[,4],d4$sexo,function(x)as.character(x)) | ||
| </code> | </code> | ||
| + | |||
| Linha 985: | Linha 986: | ||
| ts <- apply(ams, 1, T.est) | ts <- apply(ams, 1, T.est) | ||
| plot(density(ts)) | plot(density(ts)) | ||
| + | </code> | ||
| + | |||
| + | Distribuição amostral da média: empírica (por simulação) //versus// teórica | ||
| + | <code R> | ||
| medias <- apply(ams, 1, mean) | medias <- apply(ams, 1, mean) | ||
| plot(density(medias)) | plot(density(medias)) | ||
| - | curve(dnorm, 60, 80, mean=70, sd=10/sqrt(20), col=2) | + | curve(dnorm(x,mean=70, sd=10/sqrt(20)), 60, 80, add=TRUE, col=2) |
| </code> | </code> | ||
