библиотека (plm) библиотека (lsdv) newregress $ год <- as.factor (newregress $ год) newregress $ страна <- as.factor (newregress $ страна) присоединить (newregress) pdata <- pdata.frame (newregress, index = c ("страна", "год")) y <- cbind (lnimpexp) X <- cbind (lnpgdp, lnpcapgdp, diffpcap, население, tradegdpr, расстояние, saar c, не имеет выхода к морю) FE <- plm (lnimpexp ~ lngdp + население + tradegdpr, данные = pdata, модель = "в пределах", эффект = "индивидуальный") сводка (FE) </p>