Eu tentei rodar este script, mas a partir daí não rodou mais!
> system.time(d <- foreign:::read.dbf(gsub('dbc','dbf',b)))
Error in foreign:::read.dbf(gsub("dbc", "dbf", b)) :
unable to open DBF file
Timing stopped at: 0.01 0 0.02
>
> dim(d)
Error: object 'd' not found
>
> system.time(save(d, file=gsub('.dbc','d.RData',b))) system.time(save(d, file=gsub('.dbc','c.RData',b), compress='xz'))
Error: unexpected symbol in "system.time(save(d, file=gsub('.dbc','d.RData',b))) system.time"
>
> system(paste('ls -lh ', substr(b,1,8), "*", sep=''))
Warning message:
running command 'ls -lh RDSP1509*' had status 127
>
> system.time(load(gsub('.dbc','d.RData',b)))
Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection
In addition: Warning message:
In readChar(con, 5L, useBytes = TRUE) :
cannot open compressed file 'RDSP1509d.RData', probable reason 'No such file or directory'
Timing stopped at: 0 0 0
> system.time(load(gsub('.dbc','c.RData',b)))
Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection
In addition: Warning message:
In readChar(con, 5L, useBytes = TRUE) :
cannot open compressed file 'RDSP1509c.RData', probable reason 'No such file or directory'
Timing stopped at: 0 0 0
>
Caros,
DBC é um DBF comprimido. Assim, (sempre) sairá um .dbf de um .dbc.
A sugestão de usar .RData (formato de dados do R) é útil apenas no caso
de precisar carregar os mesmos dados mais de uma vez no ambiente R. Isto
porque o caminho para sair de um .dbc até um .RData envolve descomprimir
o .dbc, ler o .dbf em R e salvar para .RData. Não vejo saída ao processo
de descomprimir .dbc e ler .dbf. Usar .RData é vantajoso para economizar
tempo e espaço em disco.
Exemplo: 202143 internações hospitalares em SP (estado) em Outubro
(disponível em
ftp://ftp.datasus.gov.br/dissemin/publicos/SIHSUS/200801_/Dados/)
Ao final disponibilizo o script utilizado.
Atividade segundos
--------------------------------------
download do arquivo 47.11
extrair .dbf do .dbc 2.29
ler o arquivo .dbf em R 6.57
salvar .RData (default) 2.35
salvar .Rdata (compress='xz') 19.00
ler .RData (compress default) 0.51
ler .RData (compress xz) 0.74
--------------------------------------
Os tamanhos em disco dos quatro arquivos em questão são
.dbc 15.0 Mb
.dbf 136.0 Mb
.RData (default) 7.5 Mb
.RData (xz) 4.6 Mb
Creio que esses números podem ajudar a decidir a melhor opção.
Elias
PS.: script utilizado para o exemplo:
a <- paste('ftp://ftp.datasus.gov.br/',
'dissemin/publicos/SIHSUS/',
'200801_/Dados/', sep='')
b <- 'RDSP1509.dbc'
system.time(download.file(paste(a,b,sep=''), b))
system.time(system(paste(
'wine ../TabWin/dbf2dbc.exe', b)))
system.time(d <- foreign:::read.dbf(gsub('dbc','dbf',b)))
dim(d)
system.time(save(d, file=gsub('.dbc','d.RData',b)))
system.time(save(d, file=gsub('.dbc','c.RData',b), compress='xz'))
system(paste('ls -lh ', substr(b,1,8), "*", sep=''))
system.time(load(gsub('.dbc','d.RData',b)))
system.time(load(gsub('.dbc','c.RData',b)))
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.brhttps://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-brLeia o guia de postagem (
http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.
---
Este email foi escaneado pelo Avast antivírus.
https://www.avast.com/antivirus