#==========================================================================================
# Aula 3 da disciplina ce223 (11/03/2011)
# ENTRADA EXTERNOS DE DADOS NO R
#                                                               Professor Walmes M. Zeviani
#                                                                     www.leg.ufpr.br/ce223
#==========================================================================================

#------------------------------------------------------------------------------------------
# importação de dados de arquivos externos: *.xls -> *.txt -> R

getwd()
setwd("/home/walmes/Área de Trabalho")

ana <- read.table("ana.txt", header=TRUE, dec=".", sep="\t")
args(read.table)
str(ana)

#------------------------------------------------------------------------------------------
# importação de dados de arquivos externos: *.csv -> R

dist <- read.table("ipeadata[11-03-2011-09-24].csv", h=T, dec=",", sep=";")
str(dist)

#------------------------------------------------------------------------------------------
# dados disponíveis no R

data(mtcars)
head(mtcars)

require(MASS)
data(topo)
head(topo)

#------------------------------------------------------------------------------------------
# dados de planilhas eletrônicas

require(gdata)

help(read.xls)

ana2 <- read.xls("ana.xls", method="tab")
str(ana2)

apropos("read")

#------------------------------------------------------------------------------------------
# estatísticas descritivas

names(dist)
names(dist) <- c("sig","cod","mun","km","naosei")
str(dist)

mean(dist$km, na.rm=TRUE)
var(dist$km, na.rm=TRUE)
sd(dist$km, na.rm=TRUE)
median(dist$km, na.rm=TRUE)
which.max(table(dist$km))

summary(dist$km)

mean(dist[,"km"])
mean(dist[,4])

hist(dist$km)

skew(dist$km)
require(fBasics)
apropos("skew")
skewness(dist$km)

#------------------------------------------------------------------------------------------