PrakKomstat_Pert1

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

#Latihan2
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("GradeD\n")
  }
    if(x>=60 && x<70){cat("GradeC\n")
  }
    if(x>=70 && x<80){cat("GradeB\n")
  }
    if(x>=80 && x<100){cat("GradeA\n")
  }
  }
nilai(90)

## Nilai Anda: 90 
## Anda MendapatkanGradeA

nilai(59)

## Nilai Anda: 59 
## Anda MendapatkanGradeD

nilai(40)

## Nilai Anda: 40 
## Anda MendapatkanGrade E

Keputusan<-function(x,myu,alpha=0.05){
  Uji_t<-t.test(x,mu = myu,alternative = "two.sided")

  cat("Hipotesis:\n")
  cat("H0 : myu =", myu,"\n")
  cat("H1 : myu !=", 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(alpha=",alpha,"):\n")
if(Uji_t$p.value<alpha){
  cat(Uji_t$p.value<alpha)
  cat("tolak H0\n")
  cat("terdapat perbedaan yang signifikan\n")
  }else{
  cat("Gagal Tolak Ho\n")
  cat("Tidak terdapat perbedaan yang signifikan\n")
  }
  cat(" ")
  }
A<-c(15,20,11,25,10,12)
Keputusan(A,12)

## Hipotesis:
## H0 : myu = 12 
## H1 : myu != 12 
## Hasil Uji:
## t-hitung = 1.455 
## df       = 5 
## p-value  = 0.205 
## 
## Keputusan(alpha= 0.05 ):
## Gagal Tolak Ho
## Tidak terdapat perbedaan yang signifikan
##