为什么我不能计算平均值？

Question

试图创建一个 table 来计算我的数据的平均值，但是 sapply 不起作用，它一直给我这样的错误 'x' 必须是至少二维的数组

这是我的代码


#Question 1
set.seed(10000)

v <- c(0.1,0.5,1,2,5,10,100)

lyst <- list()

for(i in v)
{
  for(j in v)
  {
    elementname <- paste0(as.character(i),"-",as.character(j))
    print(elementname)
    lyst[[elementname]] <- rgamma(10000,i,j)
  }
}
#Question 2
pdf("Histogr4m.pdf",width = 20, height = 10)
par(mfcol=c(7,7))
for(x in names(lyst))
{
  hist(lyst[[x]],
       xlab = "Value",
       main = paste("Alpha-Lambda:",x))
}
dev.off()

#Question 3

sampleMean <- sapply(lyst, colMeans)

Answer 1

我认为问题是由 lyst 是一个 class 列表对象这一事实引起的。因此，使用 lapply 将函数应用于此列表的每个元素可能是更好的方法。您可以使用以下代码执行此操作：

sampleMean <- lapply(lyst, mean)

为什么我不能计算平均值？

Why cant I calculate the mean?

r

list

histogram

mean

sapply