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:10){cat("hobi aku main game\n")}

## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game
## hobi aku main game

nilai<-function(x){
  cat("nilai anda:",x,"\ anda 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(" H0 : mu =", myu,  "\n")
  cat(" H0 : mu !=", myu,  "\n")
  
  cat("Hasil Uji:\n")
  cat("  t-hitung =", round(Uji_t$statistic, 3), "\n")
  cat("  df       =", Uji_t$parametr, "\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 \n")
   } else {
    cat("gagl tolak H1\n")
    cat("Rata-rata populasi dari data adalah sama dengan\n")
  }
  cat(" ")
}
A <- c(15,20,11,25,10,12)
keputusan (A, 12)

## Hipotesis:
##  H0 : mu = 12 
##  H0 : mu != 12 
## Hasil Uji:
##   t-hitung = 1.455 
##   df       = 
##   p-value  = 0.205 
## 
## keputusan (a = 0.05 ) :
## gagl tolak H1
## Rata-rata populasi dari data adalah sama dengan
##