*! version 1.0.0   01 September 1993   RG
program define corcori
    version 3.1
    cap confirm number `4'
    tempname Fisher1 Fisher2 Avcorr Eff Haitch
    qui fisheri `1'
         scalar `Fisher1'=Fisher
         scalar drop Fisher
    qui fisheri `2'
         scalar `Fisher2'=Fisher
         scalar drop Fisher
    scalar `Avcorr'=(`1'^2+`2'^2)/2
    scalar `Eff'=min(1,((1-`3')/(2*(1-`Avcorr'))))
    scalar `Haitch'=(1-(`Eff'*`Avcorr'))/(1-`Avcorr')
    display "Test Statistic (Z) = "%7.4f (`Fisher1' - /*
    */ `Fisher2')*sqrt((`4'-3)/(2*(1-`3')*`Haitch')) _skip(3) /*
    */ "p-value: "%7.4f 1-normprob(abs((`Fisher1' - /*
    */ `Fisher2')*sqrt((`4'-3)/(2*(1-`3')*`Haitch')))) _skip(3) /*
    */ "2-tailed p-value: "%7.4f 2*(1-normprob(abs((`Fisher1' - /*
    */ `Fisher2')*sqrt((`4'-3)/(2*(1-`3')*`Haitch')))))
end