Simple Random Sampling – Cara R

📋 Daftar Isi

Ini merupakan pengerjaan dengan cara R dari Latihan Soal SRS. Untuk latihan soal dan jawaban secara manual, bisa dicek di tautan berikut.

Contoh Soal

Cara Manual

Cara R

Soal

Buatlah dataframe

df <- data.frame(No_ruta_sampel = 1:20,
                 Jumlah_ART = c(4,2,3,5,4,6,3,4,5,7,3,4,6,2,1,2,3,4,6,4))

Menampilkan 6 baris teratas dari data

head(df)

Manipulasi Data Menggunakan Modul “dplyr”

library(dplyr)

Baca Juga : dplyr – Manipulasi Data

Karena ukuran populasinya diketahui maka menggunakan fpc (finite population correction) dengan membuat variabel baru yang berisi ukuran populasinya (N)

df <- mutate(.data = df, N=150)

Menampilkan 6 baris teratas dari data

head(df)

Mengolah Data dengan Modul “survey” dan Fungsi “svydesign”

library(survey)

Membuat design SRS ke dalam variabel “design_srs”

design_srs <- svydesign(ids = ~1, fpc = ~N, data = df)

Fungsi

svydesign(ids, fpc, data)

Parameter

ids merupakan argumen untuk memasukkan pembobotan pada data frame sampel atau populasi, karena menggunakan SRS maka peluang terpilih sebagai sampel sama sehingga menggunakan ~1
fpc merupakan argumen yang digunakan jika ukuran populasi diketahui sehingga menggunakan finite population correction (populasi berhingga)
data merupakan argumen untuk memasukkan data frame dari sampel atau populasi (data yang diketahui)

Estimasi Rata-Rata

Menampilkan estimasi rata-rata dan standard error dari estimasi rata-rata

svymean(x = ~Jumlah_ART, design = design_srs)

Catatan
RSE dicari secara manual dengan rumus SE dibagi dengan Mean dikali 100%

Kemudian menampilkan selang kepercayaan 95% dari rata-rata

confint(svymean(x = ~Jumlah_ART, design = design_srs), level = 0.95)

Interpretasi

Estimasi rata-rata anggota rumah tangga di blok sensus X adalah 3,9 orang per rumah tangga dengan perkiraan rata-rata penyimpangan (standar error) sebesar 0,33 dan relative standar error sebesar 8,46%. Dengan tingkat kepercayaan 95%, dapat dinyatakan bahwa nilai populasi rata-rata anggota rumah tangga akan berada pada interval antara 3,253 sampai 4,547 orang per rumah tangga.

Estimasi Total

Menampilkan estimasi total dan standard error dari estimasi total

svytotal(x = ~Jumlah_ART, design = design_srs)

Catatan
RSE dicari secara manual dengan rumus SE dibagi dengan Mean dikali 100%

Menampilkan selang kepercayaan 95% dari total

confint(svytotal(x = ~Jumlah_ART, design = design_srs), level = 0.95)

Interpretasi

Estimasi total penduduk di blok sensus X adalah 585 orang dengan perkiraan rata-rata penyimpangan (standar error) sebesar 49,526 orang dan relative standar error sebesar 8,46%. Dengan tingkat kepercayaan 95%, dapat dinyatakan bahwa nilai populasi total penduduk akan berada pada interval antara 487,92 sampai 682,07 orang.