2216099122@qq.com
cs代写,cs代做,python代写,java代写,c,c++,作业,代码,程序,编程,it,assignment,project,北美,美国,加拿大,澳洲
cs代写,cs代做,python代写,java代写,c,c++,作业,代码,程序,编程,it,assignment,project,北美,美国,加拿大,澳洲
扫码添加客服微信
| 分析类型 | R语言实现方案 | Stata实现方案 |
|---|---|---|
| 描述性统计 |
summary(data)、psych::describe()
|
summarize、tabstat
|
| 回归分析 |
lm(y ~ x1 + x2)(OLS)、glm()(广义线性模型)
|
regress(OLS)、logit/probit(二元模型)
|
| 面板数据分析 |
plm::plm()(固定效应/随机效应)、lme4::lmer()(混合效应)
|
xtreg(固定效应)、xtrandom(随机效应)
|
| 时间序列分析 |
forecast::auto.arima()(ARIMA)、urca::ur.df()(单位根检验)
|
arima、dfuller(ADF检验)
|
| 工具变量法 |
AER::ivreg()
|
ivregress(2SLS)
|
| 数据可视化 |
ggplot2(高级绘图)、plotly(交互式图表)
|
graph twoway(基础绘图)、marginsplot(边际效应图)
|
r
library(readxl)
data <- read_excel("data.xlsx") # 导入Excel
data_clean <- na.omit(data) # 删除缺失值
stata
import excel "data.xlsx", sheet("Sheet1") firstrow // 导入Excel
drop if missing(var1) // 删除缺失值
r
library(plm)
model_fe <- plm(y ~ x1 + x2, data = data, model = "within") # 固定效应
model_re <- plm(y ~ x1 + x2, data = data, model = "random") # 随机效应
phtest(model_fe, model_re) # Hausman检验
stata
xtset id year // 声明面板数据结构
xtreg y x1 x2, fe // 固定效应
xtreg y x1 x2, re // 随机效应
hausman fe re // Hausman检验
r
library(AER)
iv_model <- ivreg(y ~ x1 + x2 | z1 + z2, data = data) # 2SLS
summary(iv_model, diagnostics = TRUE) # 输出第一阶段F统计量
stata
ivregress 2sls y x2 (x1 = z1 z2) // 2SLS
estat firststage // 输出第一阶段结果
r
# 方法1:替换变量
model_robust1 <- lm(y_alt ~ x1 + x2, data = data)
# 方法2:改变样本(如删除极端值)
data_sub <- subset(data, x1 > quantile(x1, 0.05) & x1 < quantile(x1, 0.95))
model_robust2 <- lm(y ~ x1 + x2, data = data_sub)
stata
// 方法1:替换变量
reg y_alt x1 x2
// 方法2:改变样本
drop if x1 < r(p5) | x1 > r(p95) // 删除5%分位数以下和95%分位数以上的观测值
reg y x1 x2
tidyverse(数据清洗)、plm(面板数据)、lfe(高维固定效应)。
help regress、help xtreg),提供详细语法说明。
lm()(R)对应regress(Stata),plm()(R)对应xtreg(Stata)。
print()或head()检查中间结果;在Stata中用list或browse查看数据。
r+econometrics)。