Tugas 1 Analisis dan Visualisasi data

##NOMOR 1##

##Input Data Excel##
data.mobil <- read.delim("clipboard")

##Gunakan R untuk menghitung nilai berikut (Jawaban harus melampirkan hasil kerja di R):##

##a. Rata-rata kecepatan mobil##

mean_Kec.mobil<-mean (data.mobil$Kecepatan)

mean_Kec.mobil

## [1] 15.5

##b. Rata-rata jarak yang ditempuh mobil##

mean.jarak.mobiL<-mean(data.mobil$Jarak)
mean.jarak.mobiL

## [1] 42.28

##c. Standar deviasi data jarak yang ditempuh mobil##

sd_jarak <- sd(data.mobil$Jarak)

sd_jarak

## [1] 24.76505

##NOMOR 2##
##a. Scatter plot dari data kecepatan dan jarak##

plot(data.mobil$Kecepatan, data.mobil$Jarak,
main = "Scatter Plot Kecepatan vs Jarak Mobil",
xlab = "Kecepatan (km/jam)",
ylab = "Jarak (meter)",
pch = 19, col = "blue")

##b. Interpretasi Scatter plot yang diperoleh##
##INTERPRETASI:## 
##Scatter plot menunjukkan hubungan positif antara kecepatan dan jarak pengereman.Semakin besar kecepatan mobil, semakin jauh jarak yang ditempuh sebelum berhenti. Titik-titik data membentuk pola yang menanjak, menunjukkan adanya hubungan positif antara kecepatan dan jarak.##

##c. Histogram untuk data kecepatan mobil##
hist(data.mobil$Kecepatan,
main = "Histogram Kecepatan Mobil",
xlab = "Kecepatan (km/jam)",
ylab = "Frekuensi",
col = "lightgreen",
border = "black")

##d. Interpretasi histogram yang diperoleh##
##Histogram menunjukkan sebaran nilai kecepatan mobil.Sebagian besar mobil memiliki kecepatan antara 10 hingga 20 km/jam, yang tampak dari batang histogram tertinggi pada rentang tersebut.Distribusinya agak condong ke kanan (positif skewed) karena ada beberapa nilai kecepatan yang lebih tinggi (hingga sekitar 25 km/jam).Ini menunjukkan bahwa sebagian besar mobil bergerak dengan kecepatan rendah sampai sedang.##

##NOMOR 3##

# Membuat data nilai Thomas

nilai <- data.frame(
MataPelajaran = c("Matematika", "Bahasa Inggris"),
Nilai_Thomas = c(80, 75),
Rata_rata_Kelas = c(75, 70),
Standar_Deviasi = c(10, 8)
)

# Menampilkan data##

nilai

##    MataPelajaran Nilai_Thomas Rata_rata_Kelas Standar_Deviasi
## 1     Matematika           80              75              10
## 2 Bahasa Inggris           75              70               8

# Rumus CV = (SD / Mean) * 100%

nilai$Koefisien_Keragaman <- (nilai$Standar_Deviasi / nilai$Rata_rata_Kelas) * 100

# Menampilkan hasil akhir

nilai

##    MataPelajaran Nilai_Thomas Rata_rata_Kelas Standar_Deviasi
## 1     Matematika           80              75              10
## 2 Bahasa Inggris           75              70               8
##   Koefisien_Keragaman
## 1            13.33333
## 2            11.42857