Computed theoretical power for N=100 and N=200 scenarios

Modules/ado/plus/s/shellout.ado

@@ -0,0 +1,79 @@
+*! shellout 1.4 04Aug2008
+*! by roywada@hotmail.com
+*! originally written to accompany -outreg2-
+*
+* version history
+* 1.0 Oct2005   beta
+* 1.1 Nov2007   opens an application without document name
+*                       opens a document with or without "using"
+* 1.2   Jan2008 cd option
+* 1.3   Aug2008 version 7.0
+* 1.4 04Aug2008 version 7.0 fiddling (was 1.3 Aug2008); fiddling with non-.txt suffix being recognized
+
+program define shellout
+version 7.0
+
+syntax [anything] [using/] [,cd]
+
+* does the shelling
+if "`c(os)'"=="Windows" | "$S_MACH"=="PC" {
+        if "`using'"~="" {
+                winexec cmd /c start ""  "`using'"
+        }
+        else {
+                if "`cd'"~="cd" {
+                        cap winexec `anything'
+                        if _rc==193 {
+                                winexec cmd /c start ""  "`anything'"
+                        }
+                        if _rc==601 {
+                                noi di in yel "Cannot find `anything'. Make sure typed the name correctly."
+                        }
+                }
+                else {
+                        winexec cmd /c cd `c(pwd)'\ &  `anything'
+                }
+        }
+}
+else {
+        * invisible to Stata 7
+        local Version7 ""
+        cap local Version7 `c(stata_version)'
+        
+        if "`Version7'"=="" {
+                * stata 7
+        }
+        else {
+                * non-PC systems
+                di "{opt shellout} probably will not work with `c(os)'"
+                shell `using'
+        }
+}
+end
+
+
+/* Old codes
+* shellout
+* version 1.0
+* October 2005
+* by roywada@hotmail.com
+*
+* (to accompany -outreg2-)
+*
+
+
+program define shelling
+version 8.2
+syntax using/
+* does the shelling
+*if c(machine_type)=="PC" {
+if "`c(os)'"=="Windows" {
+        winexec cmd /c start ""  "`using'"
+}
+else {
+        di "{opt shellout} probably will not work with `c(os)'"
+        shell `using'
+}
+end
+
+