我有一个数据列表，列表中的每个元素都是一个矩阵。类似的东西：
a <- matrix(c(rep(1,3), rep(1/0, 3)), nrow = 3)
b <- matrix(c(rep(1,3), rep(2, 3)), nrow = 3)
c <- matrix(c(rep(1,3), rep(3, 3)), nrow = 3)
RUNS.original <- list(a,b,c)
我需要将其转换为一个列表，而不包含任何包含Inf的列表元素（即，我需要RUNS.new <- list(b,c)）。
我使用
创建了RUNS.new
RUNS.new <- RUNS.original[sapply(RUNS.original, function(x) all(is.finite(x)))]
现在，我有一个单独的列表SUMMARIES.original，它由对应于RUNS.original的聚合数据向量组成（即，第i个元素或SUMMARIES.original是从第i个元素生成的RUNS.orignal）的元素。
所以，SUMMARIES.original看起来像这样：
a <- sum(RUNS.original[[1]])
b <- sum(RUNS.original[[2]])
c <- sum(RUNS.original[[3]])
SUMMARIES.original <- list(a,b,c)
我需要获取的是SUMMARIES.original的数据列表，其中已删除从RUNS.original删除的元素以创建RUNS.new（例如，我需要{{1}自从SUMMARIES.new <- list(b,c)移除a以后。