# Run this using R CMD BATCH prcomp.R t1 <- Sys.time() a <- read.table("600K.dat",sep="\t") t2 <- Sys.time() difftime(t2,t1,units="secs")