Complemento pra ler os dados diretamente da net...

### <code r>
url0 <- "https://dl.dropboxusercontent.com/u/117618178/tmp/AXP_NYS_USD_1min_EST5EDT_200407s12e.dat"

AA <- read.table(url0, header=FALSE, 
                 col.names=c("data","hora","preco","volume"), as.is=T)

### </code>