将特定函数应用于 100 种排列

问：

我有 100 个矩阵，我需要对所有人进行相同的分析。

 ###DADOSEXEMPLO##

 vetor <- c(1, 5, 3, 8, 2, 9, 3, 2:15, 1, 5, 3, 6, 5, 9, 3 )
 matrixnet<-matrix(vetor, 7, 7)
 matcor <- cor(matrixnet, method = "spearman")

  matrixnetwork = graph.adjacency(matcor, mode="undirected", 
  weighted 
  = TRUE, 
  add.colnames=NULL, diag=FALSE)
  plot(matrixnetwork)

在这里，我将排列“顶点变化值”与我要应用的特定函数相结合，在本例中为 strenght

  bootstrength <- lapply(seq_len(Nperm), function(x){  
  randomnet <- rewire(matrixnetwork, with=each_edge(0.5)) #rewire 
  vertices with constant probability
  E(randomnet)$weight <- sample(E(matrixnetwork)$weight) #shuffle 
  initial weights and assign them randomly to edges
  return(strength(randomnet))
  })

我的目标是将相同的分析应用于包含 100 个不同矩阵的列表