Otimizações = DONE
ddply + idata.frame
read.table optimized