PrakKomstat_Pert1

B<-c(2,3,6,1,7)
mean(A)

for (i in 1:10) {cat("Hobi aku main layang- layang\n")}


nilai <- function (x){
  cat ("Nilai Anda: ",x,"\nAnda mendapatkan ")
  if (x>=0 && x<50){
    cat("grade E\n")
  }
  if (x>=50 && x<60){ cat("grade D\n")
  }
  if (x>=60 && x<70){ cat("grade C\n")
  }
  if (x>=70 && x<80){ cat("grade B\n")
  }
  if (x>=80 && x<100){ cat("grade A\n")
  }
}
nilai (90)


keputusan <- function(x, myu, alpha = 0.05){
  Uji_t <- t.test(x, mu = myu, alternative = "two.sided")
  cat("Hipotesis:\n")
  cat(" H0 : mu =", myu,  "\n")
  cat(" H0 : mu !=", myu,  "\n")
  
  cat("Hasil Uji:\n")
  cat("  t-hitung =", round(Uji_t$statistic, 3), "\n")
  cat("  df       =", Uji_t$parametr, "\n")
  cat("  p-value  =", round(Uji_t$p.value, 3), "\n\n")

  cat("keputusan (a =", alpha, ") :\n")
  if (Uji_t$p.value < alpha){
    cat("tolak H0\n")
    cat("Rata-rata populasi dari data adalah tidak sama dengan \n")
   } else {
    cat("gagl tolak H1\n")
    cat("Rata-rata populasi dari data adalah sama dengan\n")
  }
  cat(" ")
}
A <- c(15,20,11,25,10,12)
keputusan (A, 12)