# #——包括= FALSE --------------------------------------------------------- 库(CellBench ) ## ----------------------------------------------------------------------------- 库(CellBench) #包装列表中的一个简单的矢量数据集< -列表(data1 = c(1、2、3)#使用系统。sleep in函数模拟长时间运行的函数transform <- list(log = function(x) {Sys.sleep(0.1);log(x)}， sqrt = function(x) {Sys.sleep(0.1);sqrt (x)}) #一次函数res < -数据集% > % time_methods res(变换) ## ----------------------------------------------------------------------------- res timed_result美元[[1 ]] ## ----------------------------------------------------------------------------- transform2 < -列表(+ = function (x) {Sys.sleep (0.1);x + 1}，负=函数(x) {Sys.sleep(0.1);x - 1})它< -数据集% > % time_methods(变换)% > % time_methods (transform2)它 ## ----------------------------------------------------------------------------- # 结果,扩大了计时扔进它% > % unpack_timing列 () ## ----------------------------------------------------------------------------- # 丢弃计时和生产benchmark_tbl对象它% > % strip_timing ()