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/28 18:01] walmes |
disciplinas:ce071-2014-01 [2014/05/02 14:31] walmes |
||
---|---|---|---|
Linha 93: | Linha 93: | ||
* Estudo sobre a qualidade de vinhos; | * Estudo sobre a qualidade de vinhos; | ||
* Estudo sobre o salario de executivos. | * Estudo sobre o salario de executivos. | ||
- | - 28/04 | + | - 28/04: |
+ | * Variáveis categóricas no modelo de regressão; | ||
+ | * Estudo das interações. | ||
- 30/04 | - 30/04 | ||
- 05/05 | - 05/05 | ||
Linha 245: | 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) | + | |
##----------------------------------------------------------------------------- | ##----------------------------------------------------------------------------- | ||
</code> | </code> |