PRAKTIKUM KOMSTAT 1

---

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

## [1] 56

mean(B)

## [1] 3.8

summary(A)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      40      45      60      56      65      70

A+B

## [1] 62 73 71 41 52

A*B

## [1] 120 210 390  40 315

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

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

keputusan<-function(x,myu,alpha=0.05) {
  uji_t<-t.test(x, m=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
##