Pertemuan1 Pengenalan 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 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 (alpha=",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:mu= 12 
## H1:mu!= 12 
## Hasil Uji:
##  t-hitung= 1.455 
## df= 5 
## p-value= 0.205 
## 
## Keputusan (alpha= 0.05 ):
## Gagal Tolak H0
## Tidak terdapat perbedaan yang signifikan
##