Komputasi Statistika 1

---

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

## [1] 56

mean(B)

## [1] 3.8

sum(A)

## [1] 280

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

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

Keputusan <- function(x, myu, alpha=0.05) {
  Uji_t <- t.test (x,mu = myu,alternative="two.sided")
  
  cat ("Hipotesis:\n")
  cat ("HO : 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:
## HO : 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
##