Simple Random Sampling – Cara R

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


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)
srs cara r head 6

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)
head df 2

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)
cara r mean

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)
cara r interval

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)
cara r total 1

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)
cara r total 2

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.


Kode Lengkap

Temukan, simpan, dan berikan bintang pada kode lengkapnya di GitHub “belajarstatistik”.


Materi Lengkap

Berikut adalah materi lainnya yang membahas mengenai Simple Random Sampling.


Tonton juga video pilihan dari kami berikut ini

Bagikan ke teman-teman Anda

Contact Us

How to whitelist website on AdBlocker?

How to whitelist website on AdBlocker?

  1. 1 Click on the AdBlock Plus icon on the top right corner of your browser
  2. 2 Click on "Enabled on this site" from the AdBlock Plus option
  3. 3 Refresh the page and start browsing the site
error: Content is protected !!
Up