line profiling: sample.interval=20000
"grepl" "srcfilecopy" "parse" "eval" 
#File 1: http://pastebin.com/download.php?i=KjdkSVZq
"sample.int" "sample" "data.frame" 1#3 "eval" "eval" 
"lazyLoadDBfetch" "<Anonymous>" "eval" "eval" "aggregate.formula" "aggregate" 1#6 "eval" "eval" 
"lazyLoadDBfetch" "aggregate.data.frame" "aggregate.formula" "aggregate" 1#6 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"any" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
":" 1#16 "eval" "eval" 
"attr" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
"nzchar" "Ops.factor" "==" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
"dim" "dim" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
"levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
".subset" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
":" 1#16 "eval" "eval" 
1#17 "eval" "eval" 
"is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
".subset" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
1#17 "[" 1#17 "eval" "eval" 
"names" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"dim" "dim" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
":" 1#16 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
1#17 "eval" "eval" 
1#17 "eval" "eval" 
1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "[" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"any" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "Ops.factor" "==" 1#17 "eval" "eval" 
"match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"all" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"dim" "dim" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"attr" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"attr" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"length" "length" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"NextMethod" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"dim" "dim" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"sys.call" "match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"attr" "levels.default" "levels" "noNA.levels" "Ops.factor" "==" 1#17 "eval" "eval" 
"==" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"is.na" "is.na" "Ops.factor" "==" 1#17 "eval" "eval" 
"match" "%in%" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"attr" "[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"Ops.factor" "==" 1#17 "eval" "eval" 
1#17 "eval" "eval" 
"names" "names" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
"[.factor" "[" "[.data.frame" 1#17 "[" 1#17 "eval" "eval" 
