```# — Bagian 1: Membaca Data 1 dan Penanganan NA — simpan = read.table(“data4.1.csv”, header = TRUE, sep = “,”) simpan

data_1 = simpan\(data1 data_11 = na.omit(data_1) data_2 = simpan\)data2 data_21 = na.omit(data_2) data_3 = simpan$data3 data_31 = na.omit(data_3)

data_1 data_11 data_2 data_21 data_3 data_31

— Bagian 2: Statistik Deskriptif (Package psych & pastecs) —

library(psych) describe(data_11) describe(data_21) describe(data_31)

library(pastecs) stat.desc(data_11) stat.desc(data_21) stat.desc(data_31)

— Bagian 3: Membaca Data 2 dan Analisis Per Kelompok —

simpan = read.table(“data4.2.csv”, header = TRUE, sep = “,”) simpan

library(psych) describeBy(simpan\(IQ, simpan\)jurusan.angka) describeBy(simpan\(IQ, simpan\)jurusan.label) describeBy(simpan\(EQ, simpan\)jurusan.angka) describeBy(simpan\(EQ, simpan\)jurusan.label)

library(doBy) summaryBy(IQ + EQ ~ jurusan.label + jenis.label, data = simpan, FUN = function(x) { c(ratarata = mean(x), standar_deviasi = sd(x), jumlah = sum(x)) })

# menghapus nilai data dalam variabel

``` r
NILAI = c(10, 40, 45, 30, 80)
NILAI = NILAI[-3]
NILAI
## [1] 10 40 30 80
NILAI = c(10, 40, 45, 30, 80)
NILAI = NILAI[-4]
NILAI
## [1] 10 40 45 80
NILAI = c(10, 40, 45, 30, 80)
NILAI = NILAI[c(-1,-3)]
NILAI
## [1] 40 30 80