preserve.
set printback=on.
** Correcção de Bonferroni.
** Valentim R. Alferes, Universidade de Coimbra, 2015.
** Metodologia de Investigação em Psicologia I.

set printback=off.
set ovars labels onumbers values tvars labels tnumbers values.
set olang=English small=0 errors=none decimal=dot.
data list free/Alpha.

* Introduza o nível alpha (por defeito, Alpha = .05).
begin data.
.05
end data.

* Introduza o número de comparações a realizar.
compute c=4.
execute.

compute ac=1-(1-Alpha)**(1/c).
execute.
formats all(f8.4) c(f8.0).
variable labels c"Número de Comparações" ac"Alpha Corrigido".
oms/select tables/if commands=["summarize"]
 subtypes=["case processing summary"]/destination viewer=no.
summarize/tables=alpha c ac/format=list nocasenum nototal
 /title='Correcção de Bonferroni'/cells=none.
restore.