uji keacakan atau run test dengan program macro minitab

Langkah-langkah run test

Run test atau uji keacakan dilakukan dengan langkah-langkah sebagai berikut:

1.      Menentukan hipotesis

H0: data pengamatan telah diambil secara acak dari suatu populasi

H1: data pengamatan yang diambil dari populasi tidak acak

2.       Mengurutkan data untuk menentukan median

Misal data 1: 6 8 4 9 5

Diurutkan :4 5 6 8 9

Jadi mediannya adalah 6

3.      Mengurangi data dengan median (xi-median)

4.      Mengembalikan urutan data seperti semula (hanya tandanya)

Xi-median data 1:  0 2 -2  3 -1

Angka 0 dianulir sehingga data1: 2 -2  3 -1

Sehingga deretan tandanya jadi : +-+-

5.      Menghitung deret tanda (r) sebagai statistik ujinya

Deret tanda data 1: +-+-

Jadi runtutannya ada 4 (r=4)

6.      Menghitung jumlah tanda (+) dan (-)

Dari deret tanda data1 didapat:

n1(+)=2

n2(-)=2

7.      Membandingkan r dengan r_atas dan r_bawah dari tabel r

8.      Daerah kritis :

Tolak H0 jika r<r_bawah atau r>r_atas

Aproksimasi sampel besar bila n1 dan n2 >20 gunakan perumusan

program macro minitab dengan aproksimasi sambel besar
macro
run ztabel k1
mconstant n med n1 n2 i r miu sigma z ztabel
mcolumn k1 k2 k3 k4
name n'jumlah data'
 let n=count(k1)      #menghitung bnyaknya data k1
 let med=median(k1)   #menghitung nilai median k1
do i=1:n
 if k1(i)<med      #apabila data ke-i pada pengamatan kurang dari median maka dicoding 1 pd k2
let k2(i)=1
else
 let k2(i)=0       #selain itu atau data ke-i lebih besar dari median dicoding 0
endif
enddo
 let n1=sum(k2)      #n1 adalah pnjumlahan dari codingan k2
do i=1:n
 if k1(i)>med      #apabila data ke-i pada pengamatan lebih dari median maka dicoding 1 pd k3
let k3(i)=1
else
let k3(i)=0
endif
enddo
 let n2=sum(k3)   # n2 adalah pnjumlahan dari codingan k3
do i=1:n
let k4(1)=1
do i=2:n
if k2(i)<k2(i-1) or k2(i)>k2(i-1)
let k4(i)=1
else
let k4(i)=0
endif
enddo
let r=sum(k4)
name n'jumlah data'
name n1'jumlah data<med'
name n2'jumlah data>med'
name r'jumlah run'
print n n1 n2 r
let miu=((2*n1*n2)/n)+1
let sigma=sqrt(((2*n1*n2)*((2*n1*n2)-n1)-n2)/(((n1+n2)**2)*(n1+n2-1)))
name miu'expected r'
name sigma'varian r'
print miu sigma
let z=(r-miu)/sigma
name z'zhitung'
print z
if z>ztabel
note H0 ditolak
else
note H0 diterima
endif
endmacro





program macro dengan sampel kurang dari 20

 macro
run rbawah ratas k1
mconstant n med n1 n2 i rbawah ratas r
mcolumn k1 k2 k3 k4
name n'jumlah data'
let n=count(k1)
let med=median(k1)
do i=1:n
if k1(i)<med
let k2(i)=1
else
let k2(i)=0
endif
enddo
let n1=sum(k2)
do i=1:n
if k1(i)>med
let k3(i)=1
else
let k3(i)=0
endif
enddo
let n2=sum(k3)
let k4(1)=1
do i=2:n
if k2(i)<k2(i-1) or k2(i)>k2(i-1)
let k4(i)=1
else
let k4(i)=0
endif
enddo
let r=sum(k4)
name n'jumlah data'
name n1'jumlah data<med'
name n2'jumlah data>med'
name r'jumlah run'
print n n1 n2 r
if r<rbawah or r>ratas
note H0 ditolak
else
note H0 diterima
endif
endmacro