Semester 4: Komputasi Statistika: Syntax Uji Hipotesis with R

uji_t=function(x,alpha,mu)

{

cat("H0:mu=",mu,"\n")

cat("H1:mu<",mu,"\n")

cat("Taraf nyata = ",alpha,"\n")

sd= sqrt(var(x))

t_hitung=sqrt(length(x))*(mean(x)-mu)/sd

t_tabel=qt(alpha,df=length(x)-1)

cat("Rata-rata sampel=",mean(x),"\n")

cat("Simpangan Baku Sampel=",sd,"\n")

cat("Galat Baku Sampel=",sd/sqrt(length(x)),"\n")

cat("Batas Bawah=",mean(x)+t_tabel*sd/sqrt(length(x)),"\n")

cat("Batas Atas=",mean(x)-t_tabel*sd/sqrt(length(x)),"\n")

cat("thitung=",t_hitung,"\n")

cat("P Value=",pt(t_hitung, df=length(x)-1),"\n")

}

F=function(db,alpha)

{

Tabel_F=matrix(nrow=db, ncol=db)

cat("Tabel F untuk alpha =",alpha,"\n")

for (i in 1:db)

{

            for (j in 1:db)

            {

            f=qf(1-alpha,i,j,0)

            Tabel_F[j,i]=f

            }

}

Tabel_F

}

Materi by Dosen Komputasi Statistika, Statistika Undip