TUGAS 2

M <- matrix(c(10,5,6,2,6,8,4,2,7), 3,3, byrow = TRUE)
M

##      [,1] [,2] [,3]
## [1,]   10    5    6
## [2,]    2    6    8
## [3,]    4    2    7

M1 <-cbind(M, c(7,4,5))

nilai <- c(60, 67, 69, 72, 74, 77, 80, 83, 87, 70)
frekuensi <- c(3, 5, 6, 8, 9, 2, 6, 8, 1, 4)
tabel <- rbind(
  Nilai = nilai,
  Frekuensi = frekuensi
)

print(tabel)

##           [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
## Nilai       60   67   69   72   74   77   80   83   87    70
## Frekuensi    3    5    6    8    9    2    6    8    1     4

plot(nilai, frekuensi,
     main = "Scatter Plot Nilai dan Frekuensi",
     xlab = "Nilai",
     ylab = "Frekuensi",
     pch = 19,
     col = "blue")