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 10:45] paulojus |
cursos:ruel:sessao0 [2007/12/19 14:50] uel |
||
---|---|---|---|
Linha 1: | Linha 1: | ||
====== Sessão Inicial -- Fundamentos da Linguagem R ====== | ====== Sessão Inicial -- Fundamentos da Linguagem R ====== | ||
+ | |||
+ | Ciando um diretório (pasta) de trabalho, e mudando o //workspace// do R para este diretório. | ||
+ | <code R> | ||
+ | getwd() | ||
+ | dir.create("c:\\cursoR") | ||
+ | setwd("c:\\cursoR") | ||
+ | getwd() | ||
+ | </code> | ||
+ | |||
+ | Vamos usar o conjunto de dados ''hills'' do pacotes ''MASS'' | ||
<code R> | <code R> | ||
require(MASS) | require(MASS) | ||
Linha 7: | Linha 17: | ||
rownames(hills) | rownames(hills) | ||
class(hills) | class(hills) | ||
- | #mh <- edit(hills) | + | </code> |
+ | Duplicando e modificando o conjunto de dados em outro objeto | ||
+ | <code R> | ||
+ | mh <- edit(hills) | ||
+ | </code> | ||
+ | |||
+ | <code R> | ||
str(hills) | str(hills) | ||
Linha 23: | 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 166: | 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> |