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 | ||
|
disciplinas:ce071-2014-01 [2014/04/30 18:50] walmes |
disciplinas:ce071-2014-01 [2014/05/02 14:31] walmes |
||
|---|---|---|---|
| Linha 247: | Linha 247: | ||
| </latex> | </latex> | ||
| - | <code R> | + | === Trabalho 4 === |
| - | ##----------------------------------------------------------------------------- | + | |
| - | ## Definições da sessão. | + | |
| - | require(lattice) | + | * Análise de dados por meio de regressão com presença de variáveis independentes categóricas; |
| - | require(latticeExtra) | + | * Os dados e contexto são exercício do capítulo 6 do *Applied Linear Regression* 3.ed do Weisberg; |
| + | * Fazer a análise dos dados fornecendo o contexto e objetivos do mesmo, declarar o modelo, correr análise dos resíduos, interpretar os resultados, fazer a predição com bandas de confiança; | ||
| + | * Entregar *.zip o pdf, Rnw e arquivos acessórios; | ||
| + | * Prazo de entrega: 12/05/2014 até às 23h59; | ||
| + | <code R> | ||
| ##----------------------------------------------------------------------------- | ##----------------------------------------------------------------------------- | ||
| - | ## Lendo dados sobre os joagadores da liga européia de futebol. | + | str(twins) ## 6.4. Eduardo. |
| - | + | str(BGSall) ## 6.6. Michele. | |
| - | da <- | + | str(cathedral) ## 6.10. Paula. |
| - | read.table("http://www.leg.ufpr.br/~walmes/data/euro_football_players.txt", | + | str(salary) ## 6.13. Cintia. |
| - | header=TRUE, sep="\t", quote="", encoding="utf-8") | + | str(mile) ## 6.18. Gustavo. |
| - | str(da) | + | |
| - | + | ||
| - | da <- subset(da, select=c("pos","kg","cm")) | + | |
| - | + | ||
| - | da$gk <- ifelse(da$pos=="GK", 1, -1) | + | |
| - | da$gk[grep("^M\\(?.?\\)?$", da$pos)] <- 0 | + | |
| - | + | ||
| - | da <- subset(da, gk>=0) | + | |
| - | str(da) | + | |
| - | + | ||
| - | names(da)[2:3] <- c("peso","altura") | + | |
| - | table(da$gk) | + | |
| - | + | ||
| - | xyplot(peso~altura|gk, data=da) | + | |
| - | + | ||
| - | ##----------------------------------------------------------------------------- | + | |
| - | ## Preço dos carros em função da categoria (simples, sedan ou cross). | + | |
| - | + | ||
| - | db <- | + | |
| - | read.table("http://www.leg.ufpr.br/~walmes/data/hb20_venda_webmotors_280314.txt", | + | |
| - | header=TRUE, sep="\t") | + | |
| - | str(db) | + | |
| - | + | ||
| - | db <- subset(db, select=c("carro","km","preco")) | + | |
| - | db <- transform(db, km=km/1000, preco=preco/1000) | + | |
| - | + | ||
| - | xyplot(preco~km|carro, data=db) | + | |
| - | + | ||
| - | ##----------------------------------------------------------------------------- | + | |
| - | + | ||
| - | require(alr3) | + | |
| - | + | ||
| - | str(sleep1) | + | |
| - | str(ais) | + | |
| - | str(twins) ## 6.4. | + | |
| - | str(BGSall) ## 6.6. | + | |
| - | str(cathedral) ## 6.10. | + | |
| - | str(salary) ## 6.13. | + | |
| - | str(mile) ## 6.18. | + | |
| ##----------------------------------------------------------------------------- | ##----------------------------------------------------------------------------- | ||
| </code> | </code> | ||
