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:100) { 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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") #&& untuk mengecek apakah rentang nilai yang diinput itu termasuk dalam rentan intervak ini ga?
}
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(" 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 popilasi 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")
      }
      
}
  A<-c(15.20,11,25,10,12)
  keputusan(A,12)

## hipotesis:
##  H0 : mu =  12 
##  H1 : mu /=  12 
## hasil uji:
##  t-hitung =  0.966 
##  df =  4 
##  p -value =  0.389 
## 
## keputusan (a = 0.05 ):
##  gagal tolak H0
## rata-rata populasi dari data adalah sama dengan 12