PRAK-1-KOMSTAT.R

#soal 1
A<-c(60,70,65,40,45)
B<-c(2,3,6,1,7)
mean (A)

## [1] 56

mean (B)

## [1] 3.8

summary(B)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     1.0     2.0     3.0     3.8     6.0     7.0

A+B

## [1] 62 73 71 41 52

A*B

## [1] 120 210 390  40 315

#soal 2
for (i in 1:10) {cat("Fairuz Cantik Imut\n")}

## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut
## Fairuz Cantik Imut

#soal 3
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 (100)

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

nilai (70)

## Nilai Anda:  70 
## Anda Mendapatkan Grade B

#soal 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