模拟一个简单的线性模型

Question

我试图模拟一个简单的线性模型 100 次，并从线性模型中找到 B1 的 LS 估计。

set.seed(123498)
x<-rnorm(z, 0, 1)
e<-rnorm(z, 0 ,2)
y<-0.5 + 2*x + e
model<- lm(y~x)
simulaten=100
z=10

for (i in 1:simulaten){
  e<-rnorm(n, 0 ,2)
  x<-rnorm(n, 0, 1)
  y<-0.5 + 2*x + e
  model<- lm(y~x)}
  summary(model)

这是我的 for 循环正在实现的目标还是我错过了目标？

Answer 1

这是一个replicate 解决方案。我已将n（在问题中忘记）和simulaten 设置为较小的值。

n <- 100
simulaten <- 4

set.seed(123498)

model_list <- replicate(simulaten, {
      e <- rnorm(n, 0, 2)
      x <- rnorm(n, 0, 1)
      y <- 0.5 + 2*x + e
      lm(y ~ x)
}, simplify = FALSE)

model_list

编辑

可以从模型列表中获得一些统计数据。系数是通过应用于每个模型的函数coef 提取的。
完成sapply，返回的对象是一个2行矩阵。

betas <- sapply(model_list, coef)

str(betas)
# num [1:2, 1:1000] 0.671 1.875 0.374 2.019 0.758 ...
# - attr(*, "dimnames")=List of 2
#  ..$ : chr [1:2] "(Intercept)" "x"
#  ..$ : NULL

至于图表，这里是一个例子。请注意，为了使 x 轴达到所有 x 值，在第一次调用hist 时，参数xlim 设置为range(betas)。

lgd <- c(expression(beta[0]), expression(beta[1]))
hist(betas[1, ], freq = FALSE, col = "lightblue", xlim = range(betas), ylim = c(0, 2.5), xlab = "betas", main = "")
hist(betas[2, ], freq = FALSE, col = "blue", add = TRUE)
legend("top", legend = lgd, fill = c("lightblue", "blue"), horiz = TRUE)

Answer 2

model 在每次迭代中都会更新。所以summary 正在返回最后一个“模型”的摘要输出。我们可以将其存储在list。

# // initialize empty list of length equals length of simulaten
modellst <- vector('list', simulaten)
 for(i in seq_len(simulaten)) {
      e <- rnorm(n, 0 ,2)
      x <- rnorm(n, 0, 1)
      y <- 0.5 + 2*x + e
      # // assign the model output to the corresponding list element
      modellst[[i]] <- lm(y~x)  
 }