{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

#Soal Tugas

Bentuk 1 buah data (bebas) berisi 5 kolom dan 5 baris kemudian buatkan plot serta hitung korelasinya. Kemudian upload hasil pada rpubs yang sudah dibentuk.

Input data

df <- data.frame(
  nama = c("azi", "maywa","nuri", "hafiza", "safana"),
  NIM = c(010, 020, 030, 040, 050),
  jumlah_jam_belajar = c(5, 6, 4, 7, 5),
  prestasi_akademik = c(85, 78, 92, 88, 95),
  jam_tidur = c(7, 8, 6, 9, 7)
)
print(df)
##     nama NIM jumlah_jam_belajar prestasi_akademik jam_tidur
## 1    azi  10                  5                85         7
## 2  maywa  20                  6                78         8
## 3   nuri  30                  4                92         6
## 4 hafiza  40                  7                88         9
## 5 safana  50                  5                95         7

Membuat Plot

boxplot (df$jumlah_jam_belajar, df$prestasi_akademik, df$jam_tidur, main="Plot Boxplot", col="blue")

Menghitung Korelasi

cor(df$jumlah_jam_belajar, df$prestasi_akademik)
## [1] -0.4398436
cor(df$jam_tidur, df$prestasi_akademik)
## [1] -0.4398436