index.Rmd

--- 
title: '経済学と反事実分析 接触篇 Economics and Counterfactual Analysis: A Contact'
author: "ill-identified"
date: "Tokyo.R 83rd, 2020/1/25, Updated: `r Sys.Date()`"
monofont: Iosevka Fixed
jmonofont: Iosevka Fixed
link-citations: true
bibliography: Structural.bib
site: bookdown::bookdown_site
biblio-style: jecon-custom
description: Tokyo.Rの続き
header-includes:
  - \numberwithin{equation}{section}
---

```{r include=F}
# automatically create a bib database for R packages
knitr::write_bib(c(
  .packages(), 'bookdown', 'knitr', 'rmarkdown'
), 'packages.bib')
```

```{r setup, include=F}
require(knitr)
knitr::opts_chunk$set(
  echo = F, include=T,
  message=F, warning=F,
  out.width = "75%",
  digits = 3,
  cache=T,
  tidy = "styler",
  fig.align = "center")
run_heavy <- F #時間のかかる処理もやるかどうか
```
```{r setup2}
require(conflicted)
require(ggdag)
require(dagitty)
require(latex2exp)
require(skimr)
require(np)
require(plotly)
require(coefplot)
require(plm)
require(gmm)
require(tidyverse)
require(ggthemes)
require(Metrics)
require(SemiPar)
require(mgcv)
require(ranger)
# require(bkmr)
# require(gplm)
require(boot)
require(estprod)
require(patchwork)
require(stargazer)
conflict_prefer("lag", "dplyr")
conflict_prefer("filter", "dplyr")
conflict_prefer("TeX", "latex2exp")
conflict_prefer("spm", "SemiPar")
theme_set(new = theme_bw())
thm <- theme_classic(base_size = 20) + theme(legend.position = "bottom", axis.title.y = element_text(angle = 0, vjust = .5))

beta_a. <- 1.0
beta_k. <- 0.7
beta_l. <- 0.2
```

# 概要

第83回Tokyo.Rのエントリ. 前回の戦後処理に時間を取られたので, 手抜き回.

前回にも言及した @igami2018Artificial の研究に関連して, **構造推定**についてもう少し詳しい話をしようと思っていたが, 残り時間の問題から**動学構造推定**は難しいと判断した. しかしアンケート至上主義なので経済学のネタは外せないから, 準備の簡単な**静学構造推定**の話をとりあえずやることにした. 静学構造推定は「動学」ではないので時間変化を考えないタイプの理論モデルを推定する一連のテクニックである. 今回の話は比較的簡単かつ昔から知られている話だから大学の経済学部でも授業で取り上げられることもあろう. 知ってる人も多いかもしれない.

具体的には, 生産関数を構造推定するOP法[@OlleyPakes1996]をRでやる. 実はこれらは既に計算プログラムが`estprod`パッケージによって提供されているが, これはうまくいくかが怪しいのでOP法の意味を解説しつつ実装してみる.

プログラム全文等付属物はこちらにある
https://github.com/Gedevan-Aleksizde/20190125_tokyor

注意: 引用文献の名前などのフォーマットがおかしいが, これは対応したcslフォーマットが見つけられなかったため. PDF版がより正確になっている.

```{r cc-logo-html, echo=F, eval=knitr::is_html_output()}
knitr::asis_output('<a rel="license" href="http://creativecommons.org/licenses/by-nc-nd/4.0/"><img alt="クリエイティブ・コモンズ・ライセンス" style="border-width:0" src="https://i.creativecommons.org/l/by-nc-nd/4.0/88x31.png" /></a><br />この作品は<a rel="license" href="http://creativecommons.org/licenses/by-nc-nd/4.0/">クリエイティブ・コモンズ 表示 - 非営利 - 改変禁止 4.0 国際 ライセンス</a>の下に提供されています.')
```
```{r cc-logo-non-html, echo=F, eval=knitr::is_latex_output(), out.width="20%"}
knitr::include_graphics("img/cc4.png")
```
```{r cc-logo-text, echo=F, eval=!knitr::is_html_output()}
if(knitr::is_latex_output()){
  knitr::asis_output("`この作品は\\href{http://creativecommons.org/licenses/by-nc-nd/4.0/}{クリエイティブ・コモンズ 表示 - 非営利 - 改変禁止 4.0 国際 ライセンス}の下に提供されています.`{=latex}")
} else {
  knitr::asis_output("この作品はクリエイティブ・コモンズ 表示 - 非営利 - 改変禁止 4.0 国際 ライセンスの下に提供されています.")
}
```