##===============================================================================
## Título: Leitura e gravação de dados no R
## Versão: v5
## Objetivos:
##===============================================================================
## a) Apresentar os recursos básicos para leitura e gravação de dados
##===============================================================================
## Dados na WEB
## Download dos arquivos em https://sites.google.com/site/agrobiostat/files
## Local no computador
bm <- './dados/bussab_morettin.txt'
ms <- './dados/msfinal.csv'
pe <- './dados/peridon.txt'
se <- './dados/semente.csv'
tg <- './dados/tg.csv'
##===================================
## Leitura de dados remotos
##===================================
read.table(bm,
head=T,
dec=',') # observar que não foi definido o caracter usado para dado não diponível
read.table(bm,
head=T,
dec=',',
na.strings='.') # agora está OK
read.table(ms,
dec=',',
sep=';') # observar que faltou informar que a primeira linha do arquivo é o nome das variáveis
read.table(ms,
head=T,
dec=',',
sep=';') # agora está OK
read.table(se,
head=T,
dec=',',
sep=';') # um arquivo um pouco maior
read.table(tg,
head=T,
dec=',') # exemplo com um número maior de variáveis
## Observar que embora o R leia os dados remotamente, como a leitura não foi atribuída a nenhum objeto,
## Não é possível fazer nada com os dados.
## Para armazenar o objeto no espaço de trabalho (Workspace) para análises subsequente:
bm <- read.table(bm,
head=T,
dec=',',
na.strings='.') # agora está OK
ls()
str(bm)
summary(bm)
plot(bm)
##===================================
## Leitura e gravação de dados local
##===================================
## É necessário ajustar a localização dos arquivos para o computador do usuário
## Os arquivos texto estão disponíveis no LEC
read.table(bm,
head=T,
dec=',')
read.table(pe)
read.table(pe,
h=T)
dad <- read.table(pe,
h=T)
dad
## Gravação de dados
setwd('./tmp')
write.table(iris,
'iris.txt')
dad[1,1]=999
write.table(dad,
'peridon_alt.txt')
##===================================
## Salvar conteúdo de análises
##===================================
getwd() # Verificando onde está o dir. de trabalho (workdir)
dir()
sink('analise.txt') # O canal stdOUT é desviado para a conexão analise.txt
summary(iris)
library(fdth)
tb <- fdt(iris)
summary(tb)
sink() # O canal stdOUT retorna para o console do R
summary(iris)
