2018-01-17

Stata15回归结果保存至WPS表单

操作系统：Win10
表 单： WPS

自从Win10可免费使用以后，本人和周围不少朋友采用WPS作为Office的替代。近日参加连玉君老师的Stata寒假培训班，涉及到WPS表单与Stata15的配合度问题。问题虽小但不去不快，于是就借用连老师培训班教材的代码反复尝试，终于可以将Stata15回归结果保存为WPS表单。在此表达一下对连老师的感谢！

直奔主题：借用连老师Stata寒假初级班培训班教材第1讲47-54行代码和566-592行代码，具体如下：

  global path "`c(sysdir_personal)'\PX_A_2018a\A1_intro"  
  global D    "$path\data"     
  global R    "$path\refs"      
  global Out  "$path\out"       
  adopath +   "$path\adofiles"  
  cd "$D"
  set scheme s2color
   
  sysuse "nlsw88", clear
  global y "wage"
  global x "hours tenure married collgrad"
  qui reg $y $x                             
    est store m1                         
    estadd local Indus "No", replace     
    estadd local Ocuu  "No", replace 
  qui reg $y $x i.race        
    est store m2
    estadd local Indus "No", replace
    estadd local Ocuu  "No", replace
  qui reg $y $x i.race i.industry
    est store m3 
    estadd local Indus "Yes", replace
    estadd local Ocuu  "No" , replace
  qui reg $y $x i.race i.occupation
    est store m4
    estadd local Indus "No" , replace
    estadd local Ocuu  "Yes", replace
    
  
  local dropmore "*.indus* *.occu*"  
  local s "using $Out\Table20180116.csv" 
  local m "m1 m2 m3 m4"
  esttab `m' `s' , replace nogap compress s(N r2_a Indus Ocuu) b(%6.3f) star(* 0.1 ** 0.05 *** 0.01) drop(`dropmore')  
  
  local dropmore "*.indus* *.occu*"  
  local m "m1 m2 m3 m4"
  esttab `m', replace nogap compress s(N r2_a Indus Ocuu) b(%6.3f) star(* 0.1 ** 0.05 *** 0.01) drop(`dropmore')   

运行上述Stata代码后，Result窗口的输出结果将会保存至以下WPS表单中：

D:\stata15\ado\personal\PX_A_2018a\A1_intro\Out\Table20180116.csv

（ The End）