KomStat

nilai <- c(65, 70, 75, 80, 80, 85, 95)

# Mean (rata-rata)
rata_rata <- sum(nilai) / length(nilai)
rata_rata

## [1] 78.57143

# Median (nilai tengah)
data_urut <- sort(nilai)
n <- length(nilai)
median_manual <- data_urut[(n + 1) / 2]
median_manual

## [1] 80

# Minimum
minimum <- data_urut[1]
minimum

## [1] 65

# Maksimum
maksimum <- data_urut[n]
maksimum

## [1] 95

# Rentang
rentang <- maksimum - minimum
rentang

## [1] 30

# Varians sampel
varians <- sum((nilai - rata_rata)^2) / (n - 1)
varians

## [1] 97.61905

# Simpangan baku sampel
simpangan_baku <- sqrt(varians)
simpangan_baku

## [1] 9.880235

#Berdasarkan hasil perhitungan manual menggunakan RStudio, diperoleh interpretasi sebagai berikut: 1. Mean (78,57): Rata-rata nilai dari tujuh mahasiswa adalah 78,57. 2. Median (80): Nilai tengah dari ketujuh mahasiswa adalah 80. 3. Minimum (65): Nilai terendah yang diperoleh mahasiswa adalah 65. 4. Maksimum (95): Nilai tertinggi yang diperoleh mahasiswa adalah 95. 5. Rentang (30): Selisih antara nilai tertinggi dan terendah adalah 30 poin. 6. Varians sampel (97,62): Menunjukkan adanya keragaman nilai mahasiswa terhadap rata-ratanya. 7. Simpangan baku sampel (9,88): Menunjukkan bahwa nilai mahasiswa menyebar dengan tingkat variasi sekitar 9,88 poin dari rata-rata 78,57.