## Exemplo de aula, 17/04/2013
## UCI - Machine learning data-sets
## http://archive.ics.uci.edu/ml/datasets.html
##
## Importando dados escolhidos (Auto MGP)
## na.st é o código para dado faltante utilizado no arquivo
## head=F indica que as colunas do arquivo não possuem cabeçalho
auto <- read.table("http://archive.ics.uci.edu/ml/machine-learning-databases/auto-mpg/auto-mpg.data", na.st="?", head=F)
## informações sobr os dados
head(auto) ## primeiras linhas da tabela de dados
dim(auto) ## dimensoes da tabela de dado
str(auto) ## strutura de armazenamento dos dados
## atribuindo nomes para as colunas
names(auto) <- c("mpg","cyl","disp","hp","wei","acc","ano","ori","Modelo")
auto$ori <- factor(auto$ori, level=1:3, label=c("US","UE","JP"))
## Resumo de dados contínuos
## I . Medidas
with(auto, mean(mpg))
with(auto, range(mpg))
with(auto, fivenum(mpg))
with(auto, summary(mpg))
with(auto, var(mpg))
with(auto, sd(mpg))
## II. Tabelas
with(auto, table(cut(mpg, br=c(0, 15, 20, 25, 50))))
with(auto, prop.table(table(cut(mpg, br=c(0, 15, 20, 25, 50)))))
## III. Gráficos
with(auto, hist(mpg))
with(auto, stem(mpg))
with(auto, boxplot(mpg))
## Resumos para grupos (no caso mpg para cada ano)
with(auto, tapply(mpg, ano, mean))
with(auto, plot(unique(ano), tapply(mpg, ano, mean), type="l"))
