Saturday, October 7th, 2017
now browsing by day
[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
[SYNTAX R] Menghitung Peluang Mata Dadu
## Pembangkitan Sample Random sample (1:6,10, replace=TRUE) ## Pelemparan Dadu 10 Kali sample (c(“A”,”G”),10,replace=TRUE) ## Pelemparan Mata Uang 10 kali ## Fungsi Pelemparan Dadu sebanyak n kali Dadu=function(n) { sample (1:6,n,replace=TRUE) } Dadu(5) ## Pelemparan Dadu 5 kali ## VARIABEL RANDOM ## Kejadian munculnya mata dadu 5 pada pelemparan daduRead More