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 | ||
cursos:ruel:sessao0 [2007/12/19 14:29] uel |
cursos:ruel:sessao0 [2007/12/19 14:50] uel |
||
---|---|---|---|
Linha 182: | 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> |