Question

试图创建一个表来计算我的数据的平均值，但是无法正常工作，它不断给我一个错误，即“ 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是类列表对象这一事实引起的。因此，使用lapply将函数应用于此列表的每个元素可能是一种更好的方法。您可以使用以下代码来做到这一点：

sampleMean <- lapply(lyst, mean)

为什么我不能计算均值？

1 个答案: