R中嵌套列表中子列表的平均元素

# 创建一个嵌套列表
nested_list <- list(list(1, 2, 3), list(4, 5, 6), list(7, 8, 9))

# 定义一个函数来计算子列表的平均元素
calculate_average <- function(nested_list) {
  num_elements <- 0  # 记录元素个数
  sum_elements <- 0  # 记录元素总和
  
  # 遍历嵌套列表
  for (sub_list in nested_list) {
    # 遍历子列表中的元素
    for (element in sub_list) {
      sum_elements <- sum_elements + element  # 累加元素值
      num_elements <- num_elements + 1  # 计数器加一
    }
  }
  
  # 计算平均元素
  average <- sum_elements / num_elements
  
  return(average)
}

# 调用函数计算嵌套列表中子列表的平均元素
result <- calculate_average(nested_list)
print(result)