prak komstat per 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("aku main layang layang\n")}

## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang
## aku main layang layang

################################################

nilai<-function(x){
  cat("nilai anda: ",x,"\nAnda mendapatkan ")
  if (x>=0&&x<50){
    cat("grade E\n")
  }
  if(x>=59&&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, altternative =" 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("pray 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("Gagaltolak 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 
## pray value = 0.205 
## 
## keputusan (a = 0.05 ):
## Gagaltolak H0
## Rata rata populasi dari data adalah sama dengan 12
##