Почему я не могу рассчитать среднее?

Question

пытается создать таблицу для вычисления среднего значения моих данных, но 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 является объектом списка классов. Таким образом, может быть лучше использовать lapply для применения функции к каждому элементу этого списка. Вы можете сделать это, используя следующий код:

sampleMean <- lapply(lyst, mean)