[1] 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] 58 67 59 39 38

A+B

## [1] 62 73 71 41 52

#buatlah program yg menampilkan tulisan "Hobi aku main layang-layang" sebanyak 10 kali dg statement for

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

#buatlah 

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(100)

## Nilai Anda:  100 
## Anda Mendapatkan Grade A

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 yNG signifikan")
} else {
  cat("  Tolak H0\n")
  cat (" Tidak Terdapat perbedaan yNG signifikan")
}
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 ):
##   Tolak H0
##  Tidak Terdapat perbedaan yNG signifikan