Peretemuan 1

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

niali <- 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")
  }
}
niali(90)

## nilai anda: 90 
## Anda mendapatkan Grade A

niali(59)

## nilai anda: 59 
## Anda mendapatkan Grade D

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 (" h1 :mu !=",myu, "\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 (a=", alpha, "):\n")
  if (uji_t$p.value < alpha) {
    cat("tolak H0\n")
    cat("rata rata populasi tidak sama dengan dari data adalah 12\n")
  } else {
    cat("gagal tolak H0\n")
    cat("rata rata populasi dari data adalah sama dengan 12\n")
  }
  cat(" ")
}
A <- c(15, 20, 11, 25, 10, 12)
keputusan(A, 12)

## hipotesis:
##  h0 :mu = 12 
##  h1 :mu != 12 
## hasil uji:
## t-hitung = 1.455 
## df = 5 
## p-value = 0.205 
## 
## keputusan (a= 0.05 ):
## gagal tolak H0
## rata rata populasi dari data adalah sama dengan 12
##