TM 1 PRAK KOMSTAT

total_transaksi <- function(x) {
  total <- sum(x)
  Rata_rata <- mean(x)
  cat("Total transaksi selama seminggu:", total, "\n")
  cat("Rata-rata transaksi per hari:", Rata_rata, "\n")
}

transaksi <- c(3, 5, 2, 4, 6, 3, 5)
total_transaksi(transaksi)

## Total transaksi selama seminggu: 28 
## Rata-rata transaksi per hari: 4

ketergantungan <- function(Rata_rata) {
  status <- ""
  if (Rata_rata < 3) {
    status <- "Rendah"
  } else if (Rata_rata <= 5) {
    status <- "Sedang"
  } else {
    status <- "Tinggi"
  }
  cat("Rata-rata transaksi per hari:", Rata_rata, "\n")
  cat("Status:", status, "\n")
}

ketergantungan(4)

## Rata-rata transaksi per hari: 4 
## Status: Sedang