** Metodologia da Investigação em Psicologia I (2013-14).
** Valentim R. Alferes (Universidade de Coimbra).

* Gerar a População 1 (N = 10000) com distribuição normal (M = 50; DP = 10).

new file.
input program.
loop NI=1 to 10000.
end case.
end loop.
end file.
end input program.
execute.

set rng=mt mtindex=random.

compute vd=rv.normal(50,10).
execute.

descriptives variables=vd.

save outfile='%temp%\file0'.

* Retirar uma amostra aleatória (Amostra_1) com n = 30.

set rng=mt mtindex=random.

compute na1=rv.uniform(0,1).
execute.

sort cases by na1(a).

n of cases 30.
execute.

compute Amostra=1.
execute.

save outfile='%userprofile%\desktop\Amostra_1.sav'/keep=Amostra vd.

* Retirar uma segunda amostra (Amostra_2), com n = 30, da mesma população.

get file='%temp%\file0'.

set rng=mt mtindex=random.

compute na2=rv.uniform(0,1).
execute.

sort cases by na2(a).

n of cases 30.
execute.

compute Amostra=2.
execute.

save outfile='%userprofile%\desktop\Amostra_2.sav'/keep=Amostra vd.

* Gerar a População 2 (N = 10000) com distribuição normal (M = 70; DP = 10).

new file.
input program.
loop NI=1 to 10000.
end case.
end loop.
end file.
end input program.
execute.

set rng=mt mtindex=random.

compute vd=rv.normal(70,10).
execute.

descriptives variables=vd.

save outfile='%temp%\file1'.

* Retirar uma amostra aleatória (Amostra_3), com n = 30, da População 2.

set rng=mt mtindex=random.

compute na3=rv.uniform(0,1).
execute.

sort cases by na3(a).

n of cases 30.
execute.

compute Amostra=3.
execute.

save outfile='%userprofile%\desktop\Amostra_3.sav'/keep=Amostra vd.

* Juntar as três amostras numa só file.

get file='%userprofile%\desktop\Amostra_1.sav'.
add files/file=*/file='%userprofile%\desktop\Amostra_2.sav'
 /file='%userprofile%\desktop\Amostra_3.sav'. 
execute.

* Comparar duas amostras independentes (1 e 2) retiradas da mesma população.

T-TEST GROUPS=Amostra(1 2)/VARIABLES=vd.

* Comparar duas amostras independentes (e.g., 1 e 3) retiradas de populações diferentes.

T-TEST GROUPS=Amostra(1 3)/VARIABLES=vd.