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 | Revisão anterior Próxima revisão Ambos lados da revisão seguinte | ||
|
cursos:ruel:sessao0 [2007/12/19 14:25] uel |
cursos:ruel:sessao0 [2007/12/19 14:50] uel |
||
|---|---|---|---|
| Linha 19: | Linha 19: | ||
| </code> | </code> | ||
| + | Duplicando e modificando o conjunto de dados em outro objeto | ||
| <code R> | <code R> | ||
| - | #mh <- edit(hills) | + | mh <- edit(hills) |
| + | </code> | ||
| + | <code R> | ||
| str(hills) | str(hills) | ||
| Linha 36: | Linha 39: | ||
| y <- sample(c("M", "F"), 10, rep=T) | y <- sample(c("M", "F"), 10, rep=T) | ||
| y | y | ||
| + | ################################# | ||
| mean(x[y == "M"]) | mean(x[y == "M"]) | ||
| mean(x[y == "F"]) | mean(x[y == "F"]) | ||
| Linha 179: | Linha 182: | ||
| summary(pessoas) | summary(pessoas) | ||
| + | |||
| + | |||
| + | head(hills) | ||
| + | |||
| + | ## 3 formas de fazxer o gráfico | ||
| + | plot(hills$dist, hills$time) | ||
| + | with(hills, plot(dist, time)) | ||
| + | with(hills, plot(time~dist)) | ||
| + | |||
| + | ## cosmética | ||
| + | with(hills, plot(time~dist, pch="*", cex=2.5)) | ||
| + | with(hills, plot(time~dist, pch=5)) | ||
| + | |||
| + | ## descobrindo os símbolos | ||
| + | plot(1:25, 1:25, pch=1:25) | ||
| + | ## descobrindo as cores | ||
| + | plot(1:8, 1:8, col=1:8, pch=19, cex=2) | ||
| + | plot(1:20, 1:20, col=terrain.colors(20), pch=19, cex=2) | ||
| + | plot(1:10, 1:10, col=heat.colors(10), pch=19, cex=2) | ||
| + | plot(1:13, 1:13, col=gray(seq(0,1,len=13)), pch=19, cex=2) | ||
| + | par(bg="yellow") | ||
| + | plot(1:13, 1:13, col=gray(seq(1,0,len=13)), pch=19, cex=2) | ||
| + | colors() | ||
| + | par(bg="yellow4") | ||
| + | plot(1:13, 1:13, col=gray(seq(1,0,len=13)), pch=19, cex=2) | ||
| + | par(bg="white") | ||
| + | |||
| + | with(hills, plot(time~dist)) | ||
| + | |||
| + | lm.h <- lm(time ~ dist, data=hills) | ||
| + | lm.h | ||
| + | names(lm.h) | ||
| + | is.list(lm.h) | ||
| + | |||
| + | lm.h$coeffi | ||
| + | coef(lm.h) | ||
| + | lm.h$res | ||
| + | resid(lm.h) | ||
| + | lm.h$fitted | ||
| + | fitted(lm.h) | ||
| + | |||
| + | plot(resid(lm.h) ~ fitted(lm.h)) | ||
| + | |||
| + | anova(lm.h) | ||
| + | summary(lm.h) | ||
| + | |||
| + | plot(lm.h) | ||
| + | |||
| + | ## comentários sobre classes, funções genéricas e metodos | ||
| + | methods(plot) | ||
| + | |||
| + | ## dividindo a tela gráfica | ||
| + | par(mfrow=c(2,2)) | ||
| + | plot(lm.h) | ||
| + | par(mfrow=c(1,1)) | ||
| + | |||
| + | |||
| + | ## alguns dispositivos gráficos | ||
| + | jpeg("diag.jpg") | ||
| + | par(mfrow=c(2,2)) | ||
| + | plot(lm.h) | ||
| + | dev.off() | ||
| + | |||
| + | pdf("diag.pdf") | ||
| + | par(mfrow=c(2,2)) | ||
| + | plot(lm.h) | ||
| + | dev.off() | ||
| + | |||
| + | postscript("diag.eps") | ||
| + | par(mfrow=c(2,2)) | ||
| + | plot(lm.h) | ||
| + | dev.off() | ||
| + | |||
| + | with(hills, plot(time ~ dist)) | ||
| + | |||
| </code> | </code> | ||
