最近要检查一支程式为何越来越慢 (因为陆陆续续修改，有陆续加东西)
我用 hadley 大神写的 lineprof pkg 来确认。
可参考
http://adv-r.had.co.nz/Profiling.html
https://github.com/hadley/lineprof
想偷懒看中文也是有 (我是英文看完才发现有中文)
http://blog.fens.me/r-perform-lineprof/
虽然看的到function中"每支" function 的执行时间，
但是我想知道的是某层 function 的总执行时间，
他的资料结构我也不太容易输出成 csv 自己加
因此想请问有经验的板友
我可否在设定上使用 lineprof 来计算某层function的总执行时间？
或是用什么方式输出成档案自己加？
感谢先。
ps:
如果想要装的话，要从GitHub自己下载source自己转成binary
以下是我的安装过程，后面附的是官方范例。
devtools或是Rcpp可能要先删掉重新装。
==
install.packages("devtools")
install.packages("Rcpp")
library(devtools)
devtools::install_github("hadley/lineprof")
install_github("wch/shiny-slickgrid",force=TRUE)
library(lineprof)
library(shiny)
source(find_ex("read-delim.r"))
source(find_ex("read-table.r")) # local copy so get line numbers
wine <- find_ex("wine.csv")
## Not run:
y1 = read.table2(wine, sep = ",")
system.time(x1 <- lineprof(read.table2(wine, sep = ","), torture = TRUE))
x2 <- lineprof(read_delim(wine), torture = TRUE)
shine(x1)
shine(x2)