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

Modules/ado/plus/m/metannt.ado

@@ -0,0 +1,160 @@
+*!version 1.0 MJB 9 May 2003
+
+cap program drop metannt
+program define metannt , rclass
+    version 7.0
+    syntax [, measure(string) size(string) confint(string) baseline(string)]
+*If measure size & confint left unspecified, assume that these are as stored
+*from previous metan/meta-analysis in r(ES) etc
+
+if "`measure'`size'`confint'"=="" {
+*Get effect size, conf intervals and type of summary measure from metan
+	local measure = r(measure)
+	local size  = r(ES)
+	local conf_l= r(ci_low)
+	local conf_u= r(ci_upp)
+ }
+ else {
+*otherwise, user is assumed to have specified them: conf interval needs parsing (and is optional)
+	local measure=upper("`measure'")
+	if "`confint'"!="" {
+		tokenize "`confint'", parse(",")
+		local conf_l=`1'
+		local conf_u=`3'
+	}
+}
+
+cap {
+	if ("`measure'"=="SMD" | "`measure'"=="WMD" | "`measure'"=="ES")
+	di in re "metannt valid only after binary data meta-analysis"
+	exit
+}
+cap {
+	assert ("`measure'"=="OR" | "`measure'"=="RR" | "`measure'"=="RD")
+	assert `size'>-1	
+	assert `size'>0 if ("`measure'"=="OR" |"`measure'"=="RR") 
+	assert `size'<1 if "`measure'"=="RD" 
+	assert `size'!=.
+}
+if _rc!=0 {
+	di in re "Specify a valid measure AND effect size using measure( ) and size( ) options," 
+	di in re " or use last estimates from metan"
+	exit
+}
+
+if "`conf_l'"!="" {
+	cap {
+		assert `conf_l'>=-1
+		assert `conf_l'>0 if "`measure'"!="RD"
+		assert `conf_u'<=1 if "`measure'"=="RD"
+		assert `size'>`conf_l'
+		assert `size'<`conf_u'
+	}
+	if _rc!=0 {
+		di in re "Invalid confidence interval"
+		exit
+	}
+}
+if "`baseline'"=="" {
+	local baseline =r(cger) 
+	local note2 "**"  /* to reinforce estimation of CGER from data */
+}
+
+if ( (`size'>0 & "`measure'"=="RD") | (`size'>1 & "`measure'"!="RD") ) {
+	local directn "excess"
+	local nntstub "H"
+ }
+ else         { 
+	local directn "avoided" 
+	local nntstub "B"
+}
+if "`conf_l'"!="" { 
+	local ci "(CI)" 
+	local cont "_cont"
+}
+di _n in gr " Control group | Treatment group |" _col(43) "|  No. of `directn' " 
+di    in gr "  event rate   |   event rate *" _col(34) "|  NNT`nntstub'* | events per 1000 `ci'*"  
+di    in gr _dup(15) "-" "+"  _dup(17) "-" "+" _dup(8) "-" "+" _dup(26) "-"
+
+
+*error check
+local flag=0 
+
+
+parse "`baseline'", parse(",")
+while "`1'"!="" {
+  local cger=`1'
+*calculate tger then NNT / events from d-a 
+  if "`measure'"=="RD" {
+	local tger=`cger'+`size'
+	if "`ci'"!="" {
+		local tger_ll = `cger'+`conf_l'
+		local tger_ul = `cger'+`conf_u'
+	}
+  }
+
+  if "`measure'"=="RR" {
+	local tger=(`cger'*`size')
+	if "`ci'"!="" {
+		local tger_ll =(`cger'*`conf_l')
+		local tger_ul =(`cger'*`conf_u')
+	}
+  }
+
+  if "`measure'"=="OR" {
+	local tger=(`size'*`cger')/(1-`cger'+`cger'*`size')
+	if "`ci'"!="" {
+		local tger_ll =(`conf_l'*`cger')/(1-`cger'+`cger'*`conf_l')
+		local tger_ul =(`conf_u'*`cger')/(1-`cger'+`cger'*`conf_u')
+	}
+  }
+  if (`tger'>=0 & `tger'<=1 & `cger'>=0 & `cger'<=1) {
+
+	local nnt = abs(1/(`cger'-`tger'))
+	local np1000=abs(1000*(`cger'-`tger'))
+	if "`ci'"!="" {
+*direction is important for CI
+		if `cger'>`tger' {
+*events avoided: CI goes from (cg-max_tg to cg-min_tg)
+			local np1k_ll =(1000*(`cger'-`tger_ul'))
+			local np1k_ul =(1000*(`cger'-`tger_ll'))
+		 }
+		 else {
+*events excess: CI goes from (tg_min-cg to tg_max-cg)
+			local np1k_ll =(1000*(`tger_ll'-`cger'))
+			local np1k_ul =(1000*(`tger_ul'-`cger'))
+		}
+	}
+
+   }
+   else {
+	local flag=10
+	local nnt =.
+	local np1000 =.
+  }
+
+  di in ye _col(5) %6.3f `cger' " `note2'"  _col(23) %6.3f `tger' _col(35) %6.1f `nnt' /*
+*/ _col(48) %5.1f `np1000' `cont'
+
+	if "`ci'"!="" {
+		di in ye "  (" %5.1f `np1k_ll' " , "  %5.1f `np1k_ul' ")
+		local tger_ll = `cger'+`conf_u'
+	}
+
+
+
+  mac shift 2
+}
+
+if `flag'>1 { di in bl "Note some baseline/event rate combinations are invalid"}
+di _n in bl "*  based on `measure'=" %5.3f `size' " applied to the control group event rate(s)"
+if "`note2'"=="**" {
+	di in bl "** based on an assumed average control group event rate of `cger'"
+
+return scalar cger= `cger'
+return scalar tger= `tger'
+return scalar nnt= `nnt'
+return scalar ep1000= `np1000'
+
+end
+