Pengenalan Software R

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 layangan-layang\n ")}

## Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-layang
##  Hobi aku main layangan-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: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(a=", alpha,"):\n")
if(Uji_t$p.value<alpha){
  cat("tolak H0\n")
  cat("Terdapat perbedaan yang signifikan\n")
}else{
  cat("Gagal Tolak H0\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(a= 0.05 ):
## Gagal Tolak H0
## Tidak terdapat perbedaan yang signifikan
##