Prak Komstat Pert 1

``

#Contoh 1
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

#(contoh 2)
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

#(contoh 3)
nilai<-function(x){
  cat("nilai anda:",x,"\nAnda Mendapat ")
  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>=90 && x<100){ cat ("grade A\n")
  }
}
nilai(90)

## nilai anda: 90 
## Anda Mendapat grade A

nilai(59)

## nilai anda: 59 
## Anda Mendapat grade D

nilai(85)

## nilai anda: 85 
## Anda Mendapat

#(contoh 4)
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 dari data adalah tidak 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
##