POPULASI

now browsing by tag

 
 

[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(“FhitungRead More