如何对R中子列表中的元素进行计算

Question

我的代码如下：

x <- data.frame(matrix(rnorm(20), nrow=10))
colnames(x) <- c("z", "m")
n_boot<-4
bs <- list()

for (i in 1:n_boot) {
 bs[[i]] <- x[sample(nrow(x), 10, replace = TRUE), ]
}

bt<-matrix(unlist(bs), ncol = 2*n_boot, byrow = FALSE)
colnames(bt) <- rep(c("z","m"),times=n_boot)
M_to_boot <- bt[,seq(2,8,by=2)]

funct<-function(M_boot_max) {  
   od<-(1/((10*((10^((16-M_boot_max-25)/5))^3)/3)*((max(M_boot_max)-min(M_boot_max))/50)))
}
V_boot<-apply(M_to_boot,2,funct)

rows.combined <- nrow(M_to_boot) 
cols.combined <- ncol(M_to_boot) + ncol(V_boot)
matrix.combined <- matrix(NA, nrow=rows.combined, ncol=cols.combined)
matrix.combined[, seq(1, cols.combined, 2)] <- M_to_boot
matrix.combined[, seq(2, cols.combined, 2)] <- V_boot
colnames(matrix.combined) <- rep(c("M_boot","V_boot"),times=n_boot)

df<-as.data.frame(matrix.combined)
start0 <- seq(1, by = 2, length = ncol(df) / 2)
start <- lapply(start0, function(i, df) df[i:(i+1)], df = df)

tests<-lapply(start, function(xy) split(xy, cut(xy$M_boot,breaks=5)))

现在我想从子列表中准备一些关于值V_boot的计算。具体来说，我想为每个子样本计算V_boot的总和。所以，例如我想要一个bin M_boot“[[4]] $ (0.811,1.25]”为该bin有一个sum（V_boot）值。但我无法弄清楚如何获得每个V_boot值。

请帮帮我。