data = read.table(file.choose(), header = TRUE)
data
## nim nama
## 1 1 Anjani_Izza_Nurlaila
## 2 2 Anita_Nurmassanda
## 3 3 Stella_Bungan_Anjani
## 4 4 PERLITA_ILLONA_INDRASARI
## 5 5 Citra_Syifa_Nuramaliyah
## 6 6 Shabrina_Zuhratul_Amaliah
## 7 7 Diva_Ayulestari_Haeri
## 8 8 Muhammad_Fajar
## 9 9 Aisyah
## 10 10 Nadia
## 11 11 Rahmania_Nur_Hafidzah
## 12 12 Stevani_Rara\x92_Tangke_Teko
## 13 13 ARIIQAH_KIRANA
## 14 14 Sofi_Fakidhotul_Mutafida
## 15 15 Aluna_Nailatul_Izzah
## 16 16 Syaifadila_Az'zahra
## 17 17 ADZRA_RAYHANA
## 18 18 Habibah_Al_Rabiah
## 19 19 Saskia_Sudirman
## 20 20 Milan_Vhynesha_Ranti
## 21 21 Ardina_Rizky_Amalia
## 22 22 Fairuz_Putri_Fahriyyah
## 23 23 Vania_Dewi_Rusyanti
## 24 24 Rafyfa_Mutia_Azzahra
## 25 25 Muhammad_Mirza
## 26 26 Azkia_Al_Fadhila
## 27 27 Noor_Kalila_Putri_Tarna
## 28 28 RAJESH_AQSA_PAUNDRADAVA
## 29 29 Bahtiar_Hanafi
## 30 30 Gladys_Amelia
## 31 31 Brigita_Bunga_Crisanti_Paula
## 32 32 Qissya_Nasuha_Amalia
## 33 33 Mellyana_Dyah_Febrianti
## 34 34 Antonius_Fernando_Sihombing
## 35 35 Salsabilla_Daha
## 36 36 Muhammad_Ahnaf_Al_Fawwaz
## 37 37 Muhammad_Najib_Amrullah
## 38 38 Muhammad_Bardan_Salaman
## 39 39 Annisa_Aprilia_Putri
## 40 40 Gloria_Joice_Zefanya
## 41 41 Kevin_Fabian_Kurniawan
## 42 42 Rani_Irmaya_Rahmawati
## 43 43 Zidan_Surya_Pradana
## 44 44 ahmad_zabrojad
## 45 45 Nur_Aqilah_Qanitah
## 46 46 Sandrino_Suba
## 47 47 Muhammad_Sadikin
## 48 48 ibnu_sangidun_solehin
## 49 49 afrah_aunur_fadillah
## 50 50 Mardiana_Syakira_Mulkani_Putri
## 51 51 Tiara_Adistira_Hanissa_Putri
## 52 52 ALVIANO_SYAFIRA
## 53 53 Muhammad_Aryandi_Hidayat
## 54 54 Ulfa_Ayudia_Putri
## 55 55 M._Khatmul_Ramahafizin
## 56 56 Amirul_Rijal_Faiq_Athallah
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER
## 58 58 M.wisnu_Ar_rozaq
## 59 59 Kholifatussania
## 60 60 Aliefia_Novita_Putri
## 61 61 Anggun_Praya_Pane
## 62 62 Mufdhilatul_Istiana_Maulidah
## 63 63 Rani
## 64 64 Vhalenzia_Febriani_Nalvi
## 65 65 Ceisya_artika_firdasari_devi
## 66 66 DEVI_PUPLITA_REALISTIANI
## 67 67 Inggrid_Aulia_Zahra
## 68 68 Andini_Tri_Ariyanti
## 69 69 Brion_Raka_Ondogunando_Purba
## 70 70 Niska_Pradila
## 71 71 Nadhifah_Hanan
## 72 72 Karen_Yollanda
## 73 73 Zulfadli_Ahwal_Ramadhan
## 74 74 RUHUL_SYARIB
set.seed(123)
sampel <- data[sample(nrow(data), 61), ]
print(sampel)
## nim nama
## 31 31 Brigita_Bunga_Crisanti_Paula
## 51 51 Tiara_Adistira_Hanissa_Putri
## 14 14 Sofi_Fakidhotul_Mutafida
## 67 67 Inggrid_Aulia_Zahra
## 42 42 Rani_Irmaya_Rahmawati
## 50 50 Mardiana_Syakira_Mulkani_Putri
## 43 43 Zidan_Surya_Pradana
## 72 72 Karen_Yollanda
## 25 25 Muhammad_Mirza
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER
## 28 28 RAJESH_AQSA_PAUNDRADAVA
## 65 65 Ceisya_artika_firdasari_devi
## 9 9 Aisyah
## 29 29 Bahtiar_Hanafi
## 35 35 Salsabilla_Daha
## 8 8 Muhammad_Fajar
## 26 26 Azkia_Al_Fadhila
## 7 7 Diva_Ayulestari_Haeri
## 70 70 Niska_Pradila
## 62 62 Mufdhilatul_Istiana_Maulidah
## 19 19 Saskia_Sudirman
## 36 36 Muhammad_Ahnaf_Al_Fawwaz
## 71 71 Nadhifah_Hanan
## 17 17 ADZRA_RAYHANA
## 68 68 Andini_Tri_Ariyanti
## 39 39 Annisa_Aprilia_Putri
## 12 12 Stevani_Rara\x92_Tangke_Teko
## 15 15 Aluna_Nailatul_Izzah
## 32 32 Qissya_Nasuha_Amalia
## 56 56 Amirul_Rijal_Faiq_Athallah
## 63 63 Rani
## 55 55 M._Khatmul_Ramahafizin
## 41 41 Kevin_Fabian_Kurniawan
## 10 10 Nadia
## 23 23 Vania_Dewi_Rusyanti
## 27 27 Noor_Kalila_Putri_Tarna
## 44 44 ahmad_zabrojad
## 49 49 afrah_aunur_fadillah
## 46 46 Sandrino_Suba
## 66 66 DEVI_PUPLITA_REALISTIANI
## 34 34 Antonius_Fernando_Sihombing
## 61 61 Anggun_Praya_Pane
## 5 5 Citra_Syifa_Nuramaliyah
## 59 59 Kholifatussania
## 48 48 ibnu_sangidun_solehin
## 13 13 ARIIQAH_KIRANA
## 18 18 Habibah_Al_Rabiah
## 1 1 Anjani_Izza_Nurlaila
## 60 60 Aliefia_Novita_Putri
## 58 58 M.wisnu_Ar_rozaq
## 6 6 Shabrina_Zuhratul_Amaliah
## 21 21 Ardina_Rizky_Amalia
## 47 47 Muhammad_Sadikin
## 69 69 Brion_Raka_Ondogunando_Purba
## 22 22 Fairuz_Putri_Fahriyyah
## 16 16 Syaifadila_Az'zahra
## 24 24 Rafyfa_Mutia_Azzahra
## 11 11 Rahmania_Nur_Hafidzah
## 74 74 RUHUL_SYARIB
## 64 64 Vhalenzia_Febriani_Nalvi
## 20 20 Milan_Vhynesha_Ranti
#stratified random sampling
data <- read.table(file.choose(), header = TRUE)
data
## nim nama Jenis_Kelamin
## 1 1 Anjani_Izza_Nurlaila Perempuan
## 2 2 Anita_Nurmassanda Perempuan
## 3 3 Stella_Bungan_Anjani Perempuan
## 4 4 PERLITA_ILLONA_INDRASARI Perempuan
## 5 5 Citra_Syifa_Nuramaliyah Perempuan
## 6 6 Shabrina_Zuhratul_Amaliah Perempuan
## 7 7 Diva_Ayulestari_Haeri Perempuan
## 8 8 Muhammad_Fajar Laki-laki
## 9 9 Aisyah Perempuan
## 10 10 Nadia Perempuan
## 11 11 Rahmania_Nur_Hafidzah Perempuan
## 12 12 Stevani_Rara\x92_Tangke_Teko Perempuan
## 13 13 ARIIQAH_KIRANA Perempuan
## 14 14 Sofi_Fakidhotul_Mutafida Perempuan
## 15 15 Aluna_Nailatul_Izzah Perempuan
## 16 16 Syaifadila_Az'zahra Perempuan
## 17 17 ADZRA_RAYHANA Perempuan
## 18 18 Habibah_Al_Rabiah Perempuan
## 19 19 Saskia_Sudirman Perempuan
## 20 20 Milan_Vhynesha_Ranti Perempuan
## 21 21 Ardina_Rizky_Amalia Perempuan
## 22 22 Fairuz_Putri_Fahriyyah Perempuan
## 23 23 Vania_Dewi_Rusyanti Perempuan
## 24 24 Rafyfa_Mutia_Azzahra Perempuan
## 25 25 Muhammad_Mirza Laki-laki
## 26 26 Azkia_Al_Fadhila Perempuan
## 27 27 Noor_Kalila_Putri_Tarna Perempuan
## 28 28 RAJESH_AQSA_PAUNDRADAVA Laki-laki
## 29 29 Bahtiar_Hanafi Laki-laki
## 30 30 Gladys_Amelia Perempuan
## 31 31 Brigita_Bunga_Crisanti_Paula Perempuan
## 32 32 Qissya_Nasuha_Amalia Perempuan
## 33 33 Mellyana_Dyah_Febrianti Perempuan
## 34 34 Antonius_Fernando_Sihombing Laki-laki
## 35 35 Salsabilla_Daha Perempuan
## 36 36 Muhammad_Ahnaf_Al_Fawwaz Laki-laki
## 37 37 Muhammad_Najib_Amrullah Laki-laki
## 38 38 Muhammad_Bardan_Salaman Laki-laki
## 39 39 Annisa_Aprilia_Putri Perempuan
## 40 40 Gloria_Joice_Zefanya Perempuan
## 41 41 Kevin_Fabian_Kurniawan Laki-laki
## 42 42 Rani_Irmaya_Rahmawati Perempuan
## 43 43 Zidan_Surya_Pradana Laki-laki
## 44 44 ahmad_zabrojad Laki-laki
## 45 45 Nur_Aqilah_Qanitah Perempuan
## 46 46 Sandrino_Suba Perempuan
## 47 47 Muhammad_Sadikin Laki-laki
## 48 48 ibnu_sangidun_solehin Laki-laki
## 49 49 afrah_aunur_fadillah Perempuan
## 50 50 Mardiana_Syakira_Mulkani_Putri Perempuan
## 51 51 Tiara_Adistira_Hanissa_Putri Perempuan
## 52 52 ALVIANO_SYAFIRA Perempuan
## 53 53 Muhammad_Aryandi_Hidayat Laki-laki
## 54 54 Ulfa_Ayudia_Putri Perempuan
## 55 55 M._Khatmul_Ramahafizin Laki-laki
## 56 56 Amirul_Rijal_Faiq_Athallah Laki-laki
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER Laki-laki
## 58 58 M.wisnu_Ar_rozaq Laki-laki
## 59 59 Kholifatussania Perempuan
## 60 60 Aliefia_Novita_Putri Perempuan
## 61 61 Anggun_Praya_Pane Perempuan
## 62 62 Mufdhilatul_Istiana_Maulidah Perempuan
## 63 63 Rani Perempuan
## 64 64 Vhalenzia_Febriani_Nalvi Perempuan
## 65 65 Ceisya_artika_firdasari_devi Perempuan
## 66 66 DEVI_PUPLITA_REALISTIANI Perempuan
## 67 67 Inggrid_Aulia_Zahra Perempuan
## 68 68 Andini_Tri_Ariyanti Perempuan
## 69 69 Brion_Raka_Ondogunando_Purba Laki-laki
## 70 70 Niska_Pradila Perempuan
## 71 71 Nadhifah_Hanan Perempuan
## 72 72 Karen_Yollanda Perempuan
## 73 73 Zulfadli_Ahwal_Ramadhan Laki-laki
## 74 74 RUHUL_SYARIB Laki-laki
set.seed(123)
sample_strata <- do.call(rbind, lapply(split(data, data$Jenis_Kelamin), function(x)
x[sample(nrow(x), 5), ]))
rownames(sample_strata) <- NULL
print(sample_strata)
## nim nama Jenis_Kelamin
## 1 55 M._Khatmul_Ramahafizin Laki-laki
## 2 69 Brion_Raka_Ondogunando_Purba Laki-laki
## 3 53 Muhammad_Aryandi_Hidayat Laki-laki
## 4 28 RAJESH_AQSA_PAUNDRADAVA Laki-laki
## 5 43 Zidan_Surya_Pradana Laki-laki
## 6 68 Andini_Tri_Ariyanti Perempuan
## 7 61 Anggun_Praya_Pane Perempuan
## 8 50 Mardiana_Syakira_Mulkani_Putri Perempuan
## 9 15 Aluna_Nailatul_Izzah Perempuan
## 10 27 Noor_Kalila_Putri_Tarna Perempuan
#Cluster random Sampling
data <- read.table(file.choose(), header = TRUE)
data
## nim nama daerah
## 1 1 Anjani_Izza_Nurlaila Balikpapan
## 2 2 Anita_Nurmassanda Loa_Janan
## 3 3 Stella_Bungan_Anjani Tenggarong
## 4 4 PERLITA_ILLONA_INDRASARI Samarinda
## 5 5 Citra_Syifa_Nuramaliyah Balikpapan
## 6 6 Shabrina_Zuhratul_Amaliah Sangatta
## 7 7 Diva_Ayulestari_Haeri Bontang
## 8 8 Muhammad_Fajar Penajam
## 9 9 Aisyah Loa_Janan
## 10 10 Nadia Samarinda
## 11 11 Rahmania_Nur_Hafidzah Sangatta
## 12 12 Stevani_Rara\x92_Tangke_Teko Tenggarong
## 13 13 ARIIQAH_KIRANA Samarinda
## 14 14 Sofi_Fakidhotul_Mutafida Tenggarong
## 15 15 Aluna_Nailatul_Izzah Sangatta
## 16 16 Syaifadila_Az'zahra Bontang
## 17 17 ADZRA_RAYHANA Bontang
## 18 18 Habibah_Al_Rabiah Balikpapan
## 19 19 Saskia_Sudirman Bontang
## 20 20 Milan_Vhynesha_Ranti Sangatta
## 21 21 Ardina_Rizky_Amalia Sangatta
## 22 22 Fairuz_Putri_Fahriyyah Samarinda
## 23 23 Vania_Dewi_Rusyanti Bontang
## 24 24 Rafyfa_Mutia_Azzahra Bontang
## 25 25 Muhammad_Mirza Bontang
## 26 26 Azkia_Al_Fadhila Penajam
## 27 27 Noor_Kalila_Putri_Tarna Tenggarong
## 28 28 RAJESH_AQSA_PAUNDRADAVA Sangatta
## 29 29 Bahtiar_Hanafi Penajam
## 30 30 Gladys_Amelia Samarinda
## 31 31 Brigita_Bunga_Crisanti_Paula Balikpapan
## 32 32 Qissya_Nasuha_Amalia Tenggarong
## 33 33 Mellyana_Dyah_Febrianti Tenggarong
## 34 34 Antonius_Fernando_Sihombing Penajam
## 35 35 Salsabilla_Daha Samarinda
## 36 36 Muhammad_Ahnaf_Al_Fawwaz Samarinda
## 37 37 Muhammad_Najib_Amrullah Sangatta
## 38 38 Muhammad_Bardan_Salaman Samarinda
## 39 39 Annisa_Aprilia_Putri Balikpapan
## 40 40 Gloria_Joice_Zefanya Loa_Janan
## 41 41 Kevin_Fabian_Kurniawan Balikpapan
## 42 42 Rani_Irmaya_Rahmawati Penajam
## 43 43 Zidan_Surya_Pradana Bontang
## 44 44 ahmad_zabrojad Balikpapan
## 45 45 Nur_Aqilah_Qanitah Balikpapan
## 46 46 Sandrino_Suba Sangatta
## 47 47 Muhammad_Sadikin Loa_Janan
## 48 48 ibnu_sangidun_solehin Penajam
## 49 49 afrah_aunur_fadillah Loa_Janan
## 50 50 Mardiana_Syakira_Mulkani_Putri Tenggarong
## 51 51 Tiara_Adistira_Hanissa_Putri Penajam
## 52 52 ALVIANO_SYAFIRA Loa_Janan
## 53 53 Muhammad_Aryandi_Hidayat Penajam
## 54 54 Ulfa_Ayudia_Putri Muara_Badak
## 55 55 M._Khatmul_Ramahafizin Sangatta
## 56 56 Amirul_Rijal_Faiq_Athallah Balikpapan
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER Loa_Janan
## 58 58 M.wisnu_Ar_rozaq Tenggarong
## 59 59 Kholifatussania Tenggarong
## 60 60 Aliefia_Novita_Putri Sangatta
## 61 61 Anggun_Praya_Pane Loa_Janan
## 62 62 Mufdhilatul_Istiana_Maulidah Bontang
## 63 63 Rani Bontang
## 64 64 Vhalenzia_Febriani_Nalvi Muara_Badak
## 65 65 Ceisya_artika_firdasari_devi Samarinda
## 66 66 DEVI_PUPLITA_REALISTIANI Tenggarong
## 67 67 Inggrid_Aulia_Zahra Muara_Badak
## 68 68 Andini_Tri_Ariyanti Samarinda
## 69 69 Brion_Raka_Ondogunando_Purba Penajam
## 70 70 Niska_Pradila Loa_Janan
## 71 71 Nadhifah_Hanan Penajam
## 72 72 Karen_Yollanda Loa_Janan
## 73 73 Zulfadli_Ahwal_Ramadhan Balikpapan
## 74 74 RUHUL_SYARIB Muara_Badak
set.seed(123)
#Memilih data cluster
Cluster <- sample(unique(data$daerah), 2)
Cluster
## [1] "Penajam" "Muara_Badak"
#Mengambil Seluruh Anggota Cluster
sampel_cluster <- data[data$daerah %in% Cluster,]
print(sampel_cluster)
## nim nama daerah
## 8 8 Muhammad_Fajar Penajam
## 26 26 Azkia_Al_Fadhila Penajam
## 29 29 Bahtiar_Hanafi Penajam
## 34 34 Antonius_Fernando_Sihombing Penajam
## 42 42 Rani_Irmaya_Rahmawati Penajam
## 48 48 ibnu_sangidun_solehin Penajam
## 51 51 Tiara_Adistira_Hanissa_Putri Penajam
## 53 53 Muhammad_Aryandi_Hidayat Penajam
## 54 54 Ulfa_Ayudia_Putri Muara_Badak
## 64 64 Vhalenzia_Febriani_Nalvi Muara_Badak
## 67 67 Inggrid_Aulia_Zahra Muara_Badak
## 69 69 Brion_Raka_Ondogunando_Purba Penajam
## 71 71 Nadhifah_Hanan Penajam
## 74 74 RUHUL_SYARIB Muara_Badak
#System random sampling
data <- read.table(file.choose(), header = TRUE)
data
## nim nama
## 1 1 Anjani_Izza_Nurlaila
## 2 2 Anita_Nurmassanda
## 3 3 Stella_Bungan_Anjani
## 4 4 PERLITA_ILLONA_INDRASARI
## 5 5 Citra_Syifa_Nuramaliyah
## 6 6 Shabrina_Zuhratul_Amaliah
## 7 7 Diva_Ayulestari_Haeri
## 8 8 Muhammad_Fajar
## 9 9 Aisyah
## 10 10 Nadia
## 11 11 Rahmania_Nur_Hafidzah
## 12 12 Stevani_Rara\x92_Tangke_Teko
## 13 13 ARIIQAH_KIRANA
## 14 14 Sofi_Fakidhotul_Mutafida
## 15 15 Aluna_Nailatul_Izzah
## 16 16 Syaifadila_Az'zahra
## 17 17 ADZRA_RAYHANA
## 18 18 Habibah_Al_Rabiah
## 19 19 Saskia_Sudirman
## 20 20 Milan_Vhynesha_Ranti
## 21 21 Ardina_Rizky_Amalia
## 22 22 Fairuz_Putri_Fahriyyah
## 23 23 Vania_Dewi_Rusyanti
## 24 24 Rafyfa_Mutia_Azzahra
## 25 25 Muhammad_Mirza
## 26 26 Azkia_Al_Fadhila
## 27 27 Noor_Kalila_Putri_Tarna
## 28 28 RAJESH_AQSA_PAUNDRADAVA
## 29 29 Bahtiar_Hanafi
## 30 30 Gladys_Amelia
## 31 31 Brigita_Bunga_Crisanti_Paula
## 32 32 Qissya_Nasuha_Amalia
## 33 33 Mellyana_Dyah_Febrianti
## 34 34 Antonius_Fernando_Sihombing
## 35 35 Salsabilla_Daha
## 36 36 Muhammad_Ahnaf_Al_Fawwaz
## 37 37 Muhammad_Najib_Amrullah
## 38 38 Muhammad_Bardan_Salaman
## 39 39 Annisa_Aprilia_Putri
## 40 40 Gloria_Joice_Zefanya
## 41 41 Kevin_Fabian_Kurniawan
## 42 42 Rani_Irmaya_Rahmawati
## 43 43 Zidan_Surya_Pradana
## 44 44 ahmad_zabrojad
## 45 45 Nur_Aqilah_Qanitah
## 46 46 Sandrino_Suba
## 47 47 Muhammad_Sadikin
## 48 48 ibnu_sangidun_solehin
## 49 49 afrah_aunur_fadillah
## 50 50 Mardiana_Syakira_Mulkani_Putri
## 51 51 Tiara_Adistira_Hanissa_Putri
## 52 52 ALVIANO_SYAFIRA
## 53 53 Muhammad_Aryandi_Hidayat
## 54 54 Ulfa_Ayudia_Putri
## 55 55 M._Khatmul_Ramahafizin
## 56 56 Amirul_Rijal_Faiq_Athallah
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER
## 58 58 M.wisnu_Ar_rozaq
## 59 59 Kholifatussania
## 60 60 Aliefia_Novita_Putri
## 61 61 Anggun_Praya_Pane
## 62 62 Mufdhilatul_Istiana_Maulidah
## 63 63 Rani
## 64 64 Vhalenzia_Febriani_Nalvi
## 65 65 Ceisya_artika_firdasari_devi
## 66 66 DEVI_PUPLITA_REALISTIANI
## 67 67 Inggrid_Aulia_Zahra
## 68 68 Andini_Tri_Ariyanti
## 69 69 Brion_Raka_Ondogunando_Purba
## 70 70 Niska_Pradila
## 71 71 Nadhifah_Hanan
## 72 72 Karen_Yollanda
## 73 73 Zulfadli_Ahwal_Ramadhan
## 74 74 RUHUL_SYARIB
n <- 20 #jumlah sampel
N <- nrow(data) #jumlah populasi
k <- round(N/n) #Interval
start <- 1 #titik awal acak
sampel_systematic <- data[
seq(start, N, by=k), ]
print(sampel_systematic)
## nim nama
## 1 1 Anjani_Izza_Nurlaila
## 5 5 Citra_Syifa_Nuramaliyah
## 9 9 Aisyah
## 13 13 ARIIQAH_KIRANA
## 17 17 ADZRA_RAYHANA
## 21 21 Ardina_Rizky_Amalia
## 25 25 Muhammad_Mirza
## 29 29 Bahtiar_Hanafi
## 33 33 Mellyana_Dyah_Febrianti
## 37 37 Muhammad_Najib_Amrullah
## 41 41 Kevin_Fabian_Kurniawan
## 45 45 Nur_Aqilah_Qanitah
## 49 49 afrah_aunur_fadillah
## 53 53 Muhammad_Aryandi_Hidayat
## 57 57 FAUZAL_ILHAM_MAULANA_HIMBER
## 61 61 Anggun_Praya_Pane
## 65 65 Ceisya_artika_firdasari_devi
## 69 69 Brion_Raka_Ondogunando_Purba
## 73 73 Zulfadli_Ahwal_Ramadhan