Rでカラムの型を指定して読み込む

http://qiita.com/dokokano_panda/items/f12d1d2e4c7f63020440

（例）

 tb <- read.table("GBPUSD1d.txt",sep=',',colClasses=c("character","numeric","numeric"))