你好,再回归时需要对一个two-level CES函数进行回归
用R回归时,涉及到四个参数的设置,a,b区间在(0,1),\[\theta\] 和\[\rho\] 区间设置为(-20, 0.99)。要求出Y对双CES表达式的回归结果,问题时=是,我R只是初学者,只会嵌套循环,运行一次都要等很久。怎么样才能避免使用循环
r2 = NULL
r2 = array(rep(0, len_j1*len_i1*len_j2*len_i2),dim= c(len_j1, len_i1, len_j2, len_i2))
str(r2)
for (i1_index in 1:len_i) # j1表示theta, j2表示rho, i1表示b, i2表示a
{
for (j1_index in 1:len_j)
{
for (i2_index in 1:len_i)
{
for (j2_index in 1:len_j)
{
r2[j1_index, i1_index, j2_index, i2_index] = summary(lm(GDP.ln ~ ces.ln[,j1_index, i1_index, j2_index, i2_index] + KH1H2$d + tech1))$r.squared #KH1H2$d 和 tech1 为其余两个虚拟变量
}
}
}
}