如何打印多个MLE输出作为数据

Question

我在R中是很新的，我在获得多个MLE的输出值表方面是很新的，它运行于不同的样本大小。这是我的代码：

library(fitdistrplus)
library(actuar)

set.seed(1234) 
#Generating Sample1 and saved in a list
n <- c(25, 50, 100, 250, 500)
mean <- 10
sd <- 1
#generate a list of list of 25 zeros, 50 zeros...
Sample1.list <- list(n25=rep(0, 25), n50=rep(0, 50), n100=rep(0, 100), n250=rep(0, 250), n500=rep(0, 500))
MLE_Sample1 <- list(rep(c(0, 0), times=length(n)))

for (i in seq_along(n)) {
  Sample1 <- rlnorm(n[i], meanlog=mean, sdlog=sd)
  Sample1.list[[i]] <- Sample1
  MLE.lnorm <- mledist(Sample1, "lnorm")
  estimate <- MLE.lnorm$estimate
  MLE_Sample1[[i]] <- estimate
}

现在，列表'MLE_Sample1包含了每个样本的所有MLE输出(即两个对数正态参数估计)，我希望将它们作为数据框架或表中的唯一对象，以向量名称作为头。不幸的是，我无法找到这样的方法。我试图查看不同的源和R-指南，但我没有找到任何东西，这很奇怪，因为在我看来，这似乎是R的一个基本操作……有人知道如何处理这个问题吗?一如既往，任何帮助都会非常感谢。

Answer 1

如何使用一个data.frames列表，然后rbindlist它们(一个data.table函数)

library(fitdistrplus)
library(actuar)
library(data.table)

set.seed(1234) 
#Generating Sample1 and saved in a list
n <- c(25, 50, 100, 250, 500)
mean <- 10
sd <- 1
#generate a list of list of 25 zeros, 50 zeros...
Sample1.list <- list(n25=rep(0, 25), n50=rep(0, 50), n100=rep(0, 100), n250=rep(0, 250), n500=rep(0, 500))
MLE_Sample1 <- list(rep(c(0, 0), times=length(n)))


for (i in seq_along(n)) {
  Sample1 <- rlnorm(n[i], meanlog=mean, sdlog=sd)
  Sample1.list[[i]] <- Sample1
  MLE.lnorm <- mledist(Sample1, "lnorm")
  estimate <- MLE.lnorm$estimate
  MLE_Sample1[[i]] <- as.data.frame(t(estimate))
}
rbindlist(MLE_Sample1)

     meanlog     sdlog
1:  9.758218 0.9048491
2:  9.773453 1.0790497
3: 10.052040 0.8846443
4: 10.035170 1.0340745
5:  9.954018 0.9791639