PrakKomstat_Pert1

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")
  }#rentang
  if (x>=50 && x<60 ){
    cat("Grade D\n")
  }
  if (x>=70 && x<80){cat ("Grade B\n")}
  if (x>=80 && x<100){cat ("Grade A\n")}
}

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")

  cat("Keputusan (a=", alpha, "):\n")
  if(Uji_t$p.value<alpha){
    cat("toal H0\n")
    cat(" Rata rata populasi dari data adalah tidak sama dengan 13\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