pertemuan 1 praktikum

A <- c(60,70,65,40,45)
B <- c(2,3,6,1,7)
mean(A)

## [1] 56

mean(B)

## [1] 3.8

A+B

## [1] 62 73 71 41 52

A*B

## [1] 120 210 390  40 315

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

## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang
## Hobi Aku main layang-layang

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)

## Nilai Anda:  90 
## Anda MendapatkanGrade A

nilai(59)

## Nilai Anda:  59 
## Anda MendapatkanGrade D

Keputusan <- function(x, myu, alpa = 0.05) {
  
  Uji_t <- t.test(x, mu = myu, alternative = "two.sided")
  
  cat("Hipotesis:\n")
  cat("H0: μ =", myu, "\n")
  cat("H1: μ ≠", myu, "\n\n")
  
  cat("Hasil Uji:\n")
  cat("t-hitung =", round(Uji_t$statistic, 3), "\n")
  cat("df =", Uji_t$parameter, "\n")
  cat("p-value =", round(Uji_t$p.value, 3), "\n\n")
  
  cat("Keputusan (α =", alpa, "):\n")
  
  if (Uji_t$p.value < alpa) {
    cat("Tolak H0\n")
    cat("Terdapat perbedaan yang signifikan\n")
  } else {
    cat("Gagal tolak H0\n")
    cat("Tidak terdapat perbedaan yang signifikan\n")
  }
  
  cat("\n")
}

A <- c(15, 20, 11, 25, 10, 12)

Keputusan(A, 12)

## Hipotesis:
## H0: μ = 12 
## H1: μ ≠ 12 
## 
## Hasil Uji:
## t-hitung = 1.455 
## df = 5 
## p-value = 0.205 
## 
## Keputusan (α = 0.05 ):
## Gagal tolak H0
## Tidak terdapat perbedaan yang signifikan