Untitled

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

for (i in 1:10) {cat("Hobi aku main layang-layang")}

## Hobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi aku main layang-layangHobi 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 (a=",alpha, "):\n")
  if (uji_t$p.value < alpha){
    cat(" tolak H0\n")
    cat(" Rata rata populasi darindata adalah sama dengan 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:
##  H0 : Mu=  12 
##  H1 : MU/= 12 
## hasil uji:
##  t-hitung = 1.455 
##  df = 5 
##  p-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