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 bermain layang-layang\n")
}

## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain layang-layang
## Hobi aku bermain 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, 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 Ho\n")
    cat(" Rata-rata populasi dari data adalah tidak sama dengan 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
##