# #——包括= FALSE --------------------------------------------------------- 库(CellBench)图书馆(dplyr)图书馆(purrr ) ## ----------------------------------------------------------------------------- < -库(CellBench)数据集列表(random_mat1 =矩阵(runif(100), 10、10),random_mat2 =矩阵(runif(100), 10、10))cor_method < -列表(皮尔逊函数(x) ={软木(x,方法=“皮尔森”)},肯德尔= function (x){软木(x,方法= "假象")})res < -数据集% > % apply_methods (cor_method ) ## ----------------------------------------------------------------------------- 类(res ) ## ----------------------------------------------------------------------------- res [1:2,] ## ----------------------------------------------------------------------------- 库(dplyr) res % > %过滤器(cor_method = =”皮尔森 ") ## ----------------------------------------------------------------------------- cor_method < -列表(斯皮尔曼= function (x)和(x,方法=“枪兵”))它< -数据集% > % apply_methods (cor_method)它 ## ----------------------------------------------------------------------------- rbind (res,它 ) ## ----------------------------------------------------------------------------- 类(res)美元的结果 ) ## ---- eval = FALSE ------------------------------------------------------------ # # 这段代码将失败# res % > % #变异(exp_result = exp(结果 )) ## ----------------------------------------------------------------------------- res % > %变异(exp_result =拉普兰人(因此,exp)) % > %变异(sum_of_exp = unlist(拉普兰人(exp_result,总和 ))) ## ----------------------------------------------------------------------------- 库(宠物猫)df1 < - data.frame(小= c(1,3),大= c(5、7)df1 ## ----------------------------------------------------------------------------- df2 < - data.frame(小= c(2、4),大= c(6、8))df2 ## ----------------------------------------------------------------------------- 台< -宠物猫(type = c(“可能性”、“均等的”),值=列表(df1,df2)台 ## ----------------------------------------------------------------------------- tidyr: unnest运算(资源描述 ) ## ---- 结果= '隐藏 '--------------------------------------------------------- # 数值文字1 #字符文本”“#字面函数函数(x) {print (x ) } ## ---- 结果= '隐藏 '--------------------------------------------------------- # 分配数值文字x < - 1 #分配字符文字x < -“a”#分配字面函数f < -函数(x){打印(x)}# # = '隐藏——结果 '--------------------------------------------------------- # 分配数值文字x < - 1 y < - x # y = 1 #分配字符文字x < -“a”y < - x y =“a”# #分配字面函数f < -函数g (x){打印(x)} < - f# g = (x) {print (x的函数 ) } ## ----------------------------------------------------------------------------- # 函数来添加两件事+ < -函数(x, y) {x + y} #函数添加2 x plus_two < -函数(x) {+ (x,y = 2)} plus_two (1 ) ## ----------------------------------------------------------------------------- 库(purrr) plus_two < -部分(+ y = 2) plus_two (1 ) ## ----------------------------------------------------------------------------- # 定义一个函数,乘以3数字加起来g < - (x, y, z)函数{x * y * z} g(1、2、3) ## ----------------------------------------------------------------------------- #创建一个函数列表,其中部分应用了第二个和第三个值#生成y和z的所有组合,生成一个4个函数列表g_list <- fn_arg_seq(g, y = c(1,2), z = c(3,4)) #将列表中的每个函数应用到值1 lapply(g_list,函数(函数){func (x = 1 ) }) ## ---- eval = FALSE ------------------------------------------------------------ # # 预置CellBench缓存# cellbench_cache_init() # # #的虚拟模拟缓慢# f < -函数(x) {# Sys.sleep(2) #返回(x ) # } # # # 创建memoised版本的函数# cached_f < - cache_method (f) # # #第一次将缓慢运行# cached_f(1) # # #运行第二次将快# cached_f (1)