Zull

`Keputusan<-function(x, myu, alpha = 0.05){ Uji_t<-t.test(x, mu = myu, alternative = “two.sided”)

cat(“Hipotesis:”) cat(” H0 : mu =“, myu,”“) cat(” H1 : mu /=“, myu,”“)

cat(“Hasil Uji :”) cat(” t-hitung=“, round(Uji_t\(statistic, 3), "\n") cat(" df =", Uji_t\)parameter,”“) cat(”p-value =“, round(Uji_t$p.value, 3),”“)

cat(“keputusan (a=”, alpha, “):”) if(Uji_t$p.value<alpha){ cat(“tolak H0”) cat(” Rata-rata populasi dari data adalah tidak sama dengan 12“) } else{ cat(”gagal ditolak H0“) cat(” Rata-rata populasi dari data adalah sama dengan 12“) } cat(” “) } A<-c(15, 20, 11, 25, 10, 12) Keputusan(A, 12)

qt(0.05,5,lower.tail = F) ``` A<-c(60,70,65,40,45) B<-c(2,3,6,1,7) mean(A) mean(B) A+B A*B

nilai<-function(x){ cat(“Nilai Anda:”,x,“Mendapatkan”) if (x>=0 && x<50){ cat(“Grade E”) } if(x>=50 && x<60){ cat(“Grade D”) } if(x>=60 && x<70){ cat(“Grade C”)} if(x>=70 && x<80){ cat(“Grade B”)} if(x>=80 && x<100){ cat(“Grade A”)} } nilai(90) nilai(59)