[SYNTAX R] Fungsi Untuk Menguji Kesamaan Varian Dari Dua Populasi Normal

uji.var.2p<-function(x1,x2,alpha){

#rumusan hipotesis statistik

cat(“\n”)

cat(“*************************”,”\n”)

cat(“Ho: varian kedua populasi sama”,”\n”)

cat(“H1: varian kedua populasi berbeda”,”\n”)

cat(“Taraf signifikansi =”,alpha,”\n”)

cat(“\n”)

#menghitung statistik sampel

n1<-length(x1)

n2<-length(x2)

var1<-var(x1)

var2<-var(x2)

f_hitung<-var1/var2

#menghitung f_tabel

v1<-n1-1

v2<-n2-1

f_tabel1<-qf(1-alpha/2,v1,v2)

f_tabel2<-1/f_tabel1

#pengambilan keputusan dan pencetakan hasil

cat(“Ftabel1(“,alpha/2,”;”,v1,”;”,v2,”)=”,f_tabel1,”\n”)

cat(“Ftabel2(“,1-alpha/2,”;”,v1,”;”,v2,”)=”,f_tabel2,”\n”)

cat(“Wilayah kritik berukuran alpha: Fhitung <“,f_tabel2,”atau Fhitung >”,f_tabel1,”\n”)

cat(“Fhitung =”,f_hitung,”\n”)

cat(“\n”)

if(f_hitung<f_tabel2||f_hitung>f_tabel1){

cat(“*************************”,”\n”)

cat(“Keputusannya adalah Tolak Ho”,”\n”)

cat(“Kesimpulannya adalah varian kedua populasi normal tersebut berbeda nyata”,”\n”)

cat(“*************************”,”\n”)

}

else{

cat(“*************************”,”\n”)

cat(“Keputusannya adalah Terima Ho”,”\n”)

cat(“Kesimpulannya adalah varian kedua populasi tersebut sama”,”\n”)

cat(“*************************”,”\n”)

}

}