PERTEMUAN 1 KOMSTAT

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

#for itu untuk perintah perulangan

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(71)

## Nilai anda:  71 
## Anda Mendapatkan  Grade B

nilai(15)

## Nilai anda:  15 
## Anda Mendapatkan Grade E

nilai(69)

## Nilai anda:  69 
## Anda Mendapatkan  Grade C

#cat, untuk menampilkan tulisan ke consol, kyk print lh
#\n, ini fungsinya kyk enter
#if, digunakan untuk fungsi kondisi dan memilih salah satu jika memenuhi kondisi 
#&&, kedua kondisi itu harus terpenuhi gitu karna di if ada 2 kondisi kann

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(" 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 (alph =", 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 (alph = 0.05 ): 
##  Gagal Tolak H0
##  Tidak terdapat perbedaan yang signifikan
## 

#round(Uji_t$statistic, 3), yang angka 3 untuk ngebulatkan 3 angka dibelakang koma