Как я могу рассчитать среднее значение и стандартное отклонение каждого из коэффициентов для модели N = 1000 MLR, используя R? Вот моя функция:
simfun <- function(a=56.25102409,b=1.78977412,c=0.08664925,n=18,x1.sd=18.87671,x2.sd=18.87671,e.sd=18.87671) {
X1 <- rnorm(n, mean=0, sd=x1.sd)
X2 <- rnorm(n, mean=0, sd=x2.sd)
e <- rnorm(n, mean=0, sd=e.sd)
Z <- a+b*X1+c*X2+e
data.frame(X1,X2,Z)
}
statfun <- function(samples) {
coef(lm(Z~X1+X2,data=samples))
}
library(plyr)
raply(1000,statfun(simfun()))
