Prak Komstat 1.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("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>=50 && x<50){
    cat("Grade E\n")
  }
  if (x>=60 && x<60){    cat("Grade D\n")
  }
  if (x>=70 && x<70){    cat("Grade C\n")
  }
  if (x>=80 && x<80){    cat("Grade B\n")
  }
  if (x>=100 && x<=100){    cat("Grade A\n")
  }
}
nilai(90)

## Nilai anda:  90 
## Anda Mendapatkan

nilai(59)

## Nilai anda:  59 
## Anda Mendapatkan

Keputusan<-function(x, myu, alpha=0.05){
  Uji_t<- t.test(x, mu= myu, alternatuve= "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$paramenter,"\n")
   cat(" 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 de ngan 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 = 
##  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

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

## [1] 2.015048