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.
| Última revisão Ambos lados da revisão seguinte | |||
|
cursos:mct:exemplo4 [2011/05/05 07:41] paulojus criada |
cursos:mct:exemplo4 [2011/05/25 18:41] paulojus |
||
|---|---|---|---|
| Linha 32: | Linha 32: | ||
| str(teste) | str(teste) | ||
| - | teste <- merge(alfab[sample(1:nrow(alfab), nrow(alfab)/2),], # metade aleatóriamente | + | teste <- merge(alfab[sample(1:nrow(alfab), nrow(alfab)/2),], # metade aleatoriamente |
| - | renda[sample(1:nrow(renda), nrow(renda)/2),], # metade aleatóriamente | + | renda[sample(1:nrow(renda), nrow(renda)/2),], # metade aleatoriamente |
| by.x="codigo", by.y="codigo") | by.x="codigo", by.y="codigo") | ||
| str(teste) | str(teste) | ||
| Linha 54: | Linha 54: | ||
| par(mfrow=c(1,2)) | par(mfrow=c(1,2)) | ||
| - | with(ar, {hist(alfabetizados, prob=T); rug(alfabetizados), lines(density(alfabetizados))}) | + | with(ar, {hist(alfabetizados, prob=T); rug(alfabetizados); lines(density(alfabetizados))}) |
| - | with(ar, {hist(log(renda), prob=T); rug(leg(renda)), lines(density(log(renda)))}) | + | with(ar, {hist(log(renda), prob=T); rug(leg(renda)); lines(density(log(renda)))}) |
| par(mfrow=c(1,1)) | par(mfrow=c(1,1)) | ||
