komputasi prak 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

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

## nilai anda :  60 
## Anda mendapatkan: grade C

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