使用lapply返回对象

Question

一个小问题。在运行函数后，我试图获取存储在独立变量中的网络指示符(fl_wp_mod，fl_wp_den)的值。我试过了但我能拿到。知道为什么吗？对不起，我一般都是新来申请和注册的。

cluster_modularity = function(graph_object){
fl_wp_ig <- graph_from_incidence_matrix(graph_object) 
fl_wp_cw <- cluster_walktrap(fl_wp_ig) 
fl_wp_mod <- modularity(fl_wp_cw) 
fl_den <- edge_density(fl_wp_ig, loops = FALSE) 
return(c(fl_wp_mod, fl_den)) 
} 
Mod = lapply(fl_wp_n, cluster_modularity[1]) #fl_wp_n is the raw data
Den = lapply(fl_wp_n, cluster_modularity[2]) #Both these lines are giving me errors 

Answer 1

在这里使用sapply更方便。

ans <- sapply(fl_wp_n, cluster_modularity)
Mod <- ans[1, ]
Den <- ans[2, ]