Pertemuan 1 Prak. Komputasi Statistika

#Latihan 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

#Latihan 2
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

#Latihan 3
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 Mendapatkan Grade A

nilai(59)

## Nilai Anda:  59 
## Anda Mendapatkan Grade D

nilai(20)

## Nilai Anda:  20 
## Anda Mendapatkan Grade E

#Latihan 4
Keputusan <- function(x, myu, alpha=0.05) {
  Uji_t <- t.test(x, mu = myu, alternative = "two.sided")
  
  cat("Hipotesis:\n")
  cat("   H0 : myu =", myu, "\n")
  cat("   H1 : myu !=", myu, "\n")
  
  cat("\nHasil 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("   Terdapat perbedaan yang signifikan\n")
  } else{
    cat("   Gagal Tolak H0\n")
    cat("   Tidak terdapat perbedaan yang signifikan\n")
  }
  cat("   ")
}
A <- c(15, 20, 11, 25, 10, 12)
Keputusan(A, 12)

## Hipotesis:
##    H0 : myu = 12 
##    H1 : myu != 12 
## 
## Hasil Uji:
##    t-hitung = 1.455 
##    df       = 5 
##    p-value  = 0.205 
## 
## Keputusan (a = 0.05 ):
##    Gagal Tolak H0
##    Tidak terdapat perbedaan yang signifikan
##