æ±äº¬è²¡å£ãæ¶è²»ç¨ã·ãã¥ã¬ã¼ã·ã§ã³ãã¼ã«ãå ¬éããããç䏿°å³ã«話題になっているãææããã¦ããåé¡ç¹ã®ä¸ã¤ã¯ãæ¶è²»ç¨çãåããã¦ãæé·çã«å½±é¿ããªãç¹ã§ãããæ¹å¤è ã¯ããã¯ç¾å®çã§ã¯ãªãã¨è¨ããæè·è ã¯ãããããã®ã¢ãã«ã«ããããåä½ãæ±ããã®ã¯è麦å±ã§ã©ã¼ã¡ã³ãæ±ãããå¦ãçéãã ã¨è¨ãã
è²¡æ¿æ¿çã¨å®ä½çµæ¸ã¨ã®ãã£ã¼ãããã¯é¢ä¿ã«é¢ããæè¿ã®çè«ã¨ãã¦ã¯ãæ¬ããã°ã§ãä½åº¦ãåãä¸ãã¦ããããã³ã°ï¼ãµãã¼ãºã®ç ç©¶ããã*1ãæ±äº¬è²¡å£ã®ã¢ãã«ã¯ããªã¼ã½ããã®Rã§åãä¸ã«ãã½ã¼ã¹ãå
¬éããã¦ãããããä¿®æ£ãå¯è½ã¨ãªã£ã¦ãããããã§ãåãããã3/21エントリã§ããã³ã°ï¼ãµãã¼ãºãåºã«èãããããªç¨ç夿´ããå®è³ªæé·çã¸ã®å½±é¿ããquick and dirtyãªå½¢ã§åãè¾¼ãã§ã¿ãã
å
·ä½çã«ã¯ãprj_m_.rã®ãå®è³ªGDPæé·ç 伸é·ãã®ãããã¯ã以ä¸ã®ããã«å¤æ´ãã¦ã¿ãï¼æå¾ã®2è¡ã追å è¡ï¼*2ã
## å®è³ªGDPæé·ç ä¼¸é· base$M_GDP_R_GR = dexpd(base$M_GDP_R_GR_T,(base$M_TFP_GR)/(1-M_BUNPAI)+base$M_POP_15_64_GR,2013) base$M_GDP_R_GR = intrpl(base$M_GDP_R_GR,2013,2018) base$M_GDP_R_GR2 = base$M_GDP_R_GR - (base$F_DLT-lag(base$F_DLT,k=-1))*0.2 - base$F_DLT*0.07 base$M_GDP_R_GR = base$M_GDP_R_GR2
ããã§ã¯ãæ¶è²»ç¨çãåå¹´ã«æ¯ã¹å¼ãä¸ããããã¨ã乿°å¹æã§å½å¹´ã®æé·çã«å½±é¿ããã¨ãã¦ãããã¾ãããããã䏿çãªå½±é¿ã¨ã¯å¥ã«ãæ¶è²»ç¨çã®åæå¤ããã®å¤åã«æ¯ä¾ãã¦æé·çããã¼ã¹ã©ã¤ã³ããä¸ããã¨ãã¦ããï¼ãã ãã©ããã¡ã¼å¹æã¯å¤ãå°ããå²ã«å®å¼åãããé¢åãªã®ã§çç¥ï¼ããªãã乿°ãæ¯ä¾ä¿æ°ã®å¤ã¯3/21ã¨ã³ããªã®æ°åãåºã«ãã¦ããã
ãæ¶è²»ç¨çã®åå¢ç¨å¹ ãã15%ã¨ããå ´åã®çµæããä¿®æ£åå¾ã§æ¯è¼ãã¦ã¿ãã¨ä»¥ä¸ã®ããã«ãªãã
ä¿®æ£å¾ã®ã¢ãã«ã§ã¯ãå®è³ªæé·çã¯æ¶è²»ç¨çå¼ãä¸ãæã«ãã¤ãã¹ã«è½ã¡è¾¼ã¿ããã®å¾ãå ã®ã¢ãã«ãã1%ãã¤ã³ãå¼·ä½ãæé·çã§æ¨ç§»ããããã®çµæãå®è³ªGDPã®æ°´æºãå·®ãéãã¦ããã2050å¹´æç¹ã§å ã®ã¢ãã«ã®65%ã®æ°´æºã«çã¾ããã¾ãããã©ã¤ããªã¼ãã©ã³ã¹ã¯ãå ã®ã¢ãã«ã§ã¯2050å¹´ã¾ã§5ã10å åã®ç¯å²ã§ãã©ã¹ãç¶ããã®ã«å¯¾ããä¿®æ£å¾ã¯2040å¹´ã«ãã¤ãã¹ã«æ»ã£ã¦ãã¾ãã
ããã¾ã§ãquick and dirtyãªä¿®æ£ã§ããç¹ã«ã¯æ³¨æãè¦ããããå°ãªãã¨ãæ¶è²»ç¨çãåããã¦ãæé·çãå¾®åã ã«ããªãç¶æ ããã¯ç¾å®æãå¢ããã®ã§ã¯ãªãã ãããã
*1:ï¼»2016/6/6ä¿®æ£ï¼½ãç¨çã®å¤æ´ãå®ä½çµæ¸ã«ä¸ããå½±é¿ãâãè²¡æ¿æ¿çã¨å®ä½çµæ¸ã¨ã®ãã£ã¼ãããã¯é¢ä¿ãã«ä¿®æ£ï¼ããã³ã°ï¼ãµãã¼ãºã¯å¥ã«ç¨ç夿´ãç´æ¥ã«æ±ã£ã¦ããããã§ã¯ãªãããï¼ã
*2:ã¡ãªã¿ã«ãå½åã¡ã¢å¸³ã§ç·¨éããã¨ããå®è¡æã«ã¨ã©ã¼ãèµ·ããããåå ã¯ã¡ã¢å¸³ã§ç·¨éããã¨ãã¡ã¤ã«ã®å é ã«å¿ ãEFBBBFã¨ããUTF-8ãã¡ã¤ã«ã®å¶å¾¡è¨å·ï¼BOMï¼ãä»ä¸ãããããã§ãã£ããここåç §ã