PrakKomstat_Pert1

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

qt(0.05,5,lower.tail=F)

## [1] 2.015048