Untitled

```{r A<-c(60, 70, 65, 40, 45) B<-c(2, 3, 6, 1, 7) mean(A) mean(B) A+B A*B

for (i in 1:10) {cat(“hobi aku main epep”) }

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)

keputusan <- function(x,myu,alpha = 0.05){ uji_t<- t.test(x,mu =myu, altternative =” 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(“pray 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(“Gagaltolak H0”) cat(“Rata rata populasi dari data adalah sama dengan 12”) } cat(” “) } A<-c(15,20,11,25,10,12) keputusan(A,12)