Berikut ini adalah program Macro Minitab untuk mencari nilai Quartil 1, Quartil 2 (Median), Quartil 3. Namun output program tak sama dengan Describe pada Minitab tetapi hasil akan sama jika menggunakan R Software (sehingga perlu direvisi lagi). Artinya hasil Kuartil 1 dan 3 antara Minitab dan R adalah berbeda. Berikut adalah Macro Minitab untuk mecari nilai ketiga Quartil tersebut:
Let C2 = SORT(C1)
Let k1 = COUNT(C2)
Let k2 = (k1 + 1)
Let k3 = ROUND(k2/2,0)
if MOD(k2,2) = 0
Let k4 = c2(k3)
Let k5 = k3 + 1
Let k6 = ROUND(k5/2,0)
If MOD(k5,2) = 0
Let k7 = C2(k6)
Let k8 = C2(k3-1+k6)
else
Let k7 = (C2(k6)+c2(k6-1))/2
Let k8 = (C2(k3-1+k6)+c2(k3-1+k6-1))/2
endif
else
Let k4 = (C2(k3)+C2(k3-1))/2
Let k5 = k2/2+1
Let k6 = ROUND(k5/2,0)
If k5/2 < k6
Let k7 = C2(k6)-(C2(k6)-C2(k6-1))/4
Let k8 = C2(k1/2+k6-1)+(C2(k1/2+k6)-C2(k1/2+k6-1))/4
else If k5/2 > k6
Let k7 = C2(k6)+(C2(k6+1)-C2(k6))/4
Let k8 = C2(k1/2+k6)-(C2(k1/2+k6)-C2(k1/2+k6-1))/4
endif
endif
k4 : Kuartil 2
k7 : Kuartil 1
k8 : Kuartil 3
Let k1 = COUNT(C2)
Let k2 = (k1 + 1)
Let k3 = ROUND(k2/2,0)
if MOD(k2,2) = 0
Let k4 = c2(k3)
Let k5 = k3 + 1
Let k6 = ROUND(k5/2,0)
If MOD(k5,2) = 0
Let k7 = C2(k6)
Let k8 = C2(k3-1+k6)
else
Let k7 = (C2(k6)+c2(k6-1))/2
Let k8 = (C2(k3-1+k6)+c2(k3-1+k6-1))/2
endif
else
Let k4 = (C2(k3)+C2(k3-1))/2
Let k5 = k2/2+1
Let k6 = ROUND(k5/2,0)
If k5/2 < k6
Let k7 = C2(k6)-(C2(k6)-C2(k6-1))/4
Let k8 = C2(k1/2+k6-1)+(C2(k1/2+k6)-C2(k1/2+k6-1))/4
else If k5/2 > k6
Let k7 = C2(k6)+(C2(k6+1)-C2(k6))/4
Let k8 = C2(k1/2+k6)-(C2(k1/2+k6)-C2(k1/2+k6-1))/4
endif
endif
k4 : Kuartil 2
k7 : Kuartil 1
k8 : Kuartil 3
Semoga membantu =)

No comments:
Post a Comment
Kalau berkenan, dikoment donk untuk menjadi masukan buad Admin