library(dplyr)
Attaching package: 'dplyr'The following objects are masked from 'package:stats':
filter, lagThe following objects are masked from 'package:base':
intersect, setdiff, setequal, unionlibrary(readxl)
library(ggplot2)Menghitung Sampling Sungai
Library
Dataset
d<-read_excel("E:\\Studi S2 IPB\\Semester 1\\Praktikum Analisis Statistika\\k.xls", sheet='Data Final')
d# A tibble: 70 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 1 Alau 32
2 2 Ba’ai 52
3 3 Bandang 52
4 4 Bangka 23
5 5 Batangan Muntai 10
6 6 Belayan 319
7 7 Beliwit 19
8 8 Benglon 142
9 9 Bental 58
10 10 Berau 292
# ℹ 60 more rowshead(d)# A tibble: 6 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 1 Alau 32
2 2 Ba’ai 52
3 3 Bandang 52
4 4 Bangka 23
5 5 Batangan Muntai 10
6 6 Belayan 319summary(d$`Panjang (km)`) Min. 1st Qu. Median Mean 3rd Qu. Max.
2.00 32.00 51.00 125.50 89.75 2001.00 str(d)tibble [70 × 3] (S3: tbl_df/tbl/data.frame)
$ No : num [1:70] 1 2 3 4 5 6 7 8 9 10 ...
$ Nama : chr [1:70] "Alau" "Ba’ai" "Bandang" "Bangka" ...
$ Panjang (km): num [1:70] 32 52 52 23 10 319 19 142 58 292 ...Sampling
sampledata <- d %>% sample_n(10)
sampledata# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 8 Benglon 142
2 22 Karangan 66
3 44 Murung 2
4 32 Loa Haur 120
5 25 Kedang Rantau 132
6 6 Belayan 319
7 11 Binatang 38
8 16 Durian 38
9 38 Manubar 32
10 14 Bongan 20samples_list <- list()
for (i in 1:100) {
samples_list[[i]] <- d %>% sample_n(10)
}
samples_list[[1]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 62 Suaran 19
2 17 Inaran 22
3 7 Beliwit 19
4 24 Kedang Pahu 144
5 31 Lesan 64
6 47 Ninjah 72
7 49 Pela 10
8 25 Kedang Rantau 132
9 61 Siduung 83
10 40 Marukangan 32
[[2]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 48 Pari 64
2 5 Batangan Muntai 10
3 6 Belayan 319
4 35 Mahakam 920
5 42 Mengapah 28
6 49 Pela 10
7 28 Keraitan 22
8 13 Boh 71
9 14 Bongan 20
10 27 Kelinjau 244
[[3]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 27 Kelinjau 244
2 58 Sengatta 92
3 16 Durian 38
4 9 Bental 58
5 34 Lumbungan 18
6 14 Bongan 20
7 10 Berau 292
8 52 Rantau 164
9 29 Lati 43
10 54 Sabintulung 15
[[4]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 42 Mengapah 28
2 61 Siduung 83
3 2 Ba’ai 52
4 14 Bongan 20
5 50 Pelawan 52
6 25 Kedang Rantau 132
7 60 Siagung 38
8 35 Mahakam 920
9 31 Lesan 64
10 70 Wahau 198
[[5]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 44 Murung 2
2 48 Pari 64
3 19 Jembayan 180
4 59 Senyiur 66
5 52 Rantau 164
6 3 Bandang 52
7 54 Sabintulung 15
8 63 Sulaiman 23
9 5 Batangan Muntai 10
10 66 Tawon 50
[[6]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 41 Melan 51
2 48 Pari 64
3 57 Segah 152
4 2 Ba’ai 52
5 55 Sambaratta 39
6 34 Lumbungan 18
7 58 Sengatta 92
8 38 Manubar 32
9 29 Lati 43
10 19 Jembayan 180
[[7]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 4 Bangka 23
2 5 Batangan Muntai 10
3 60 Siagung 38
4 26 Kelai 254
5 56 Santan 78
6 30 Lembak 48
7 50 Pelawan 52
8 67 Telaga 23
9 55 Sambaratta 39
10 68 Telen 182
[[8]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 52 Rantau 164
2 30 Lembak 48
3 61 Siduung 83
4 49 Pela 10
5 53 Rapak 38
6 26 Kelai 254
7 62 Suaran 19
8 15 Dumaring 49
9 7 Beliwit 19
10 40 Marukangan 32
[[9]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 50 Pelawan 52
2 43 Merah 51
3 61 Siduung 83
4 11 Binatang 38
5 45 Muyub 48
6 13 Boh 71
7 42 Mengapah 28
8 38 Manubar 32
9 37 Mandu 22
10 49 Pela 10
[[10]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 56 Santan 78
2 44 Murung 2
3 49 Pela 10
4 25 Kedang Rantau 132
5 29 Lati 43
6 2 Ba’ai 52
7 5 Batangan Muntai 10
8 47 Ninjah 72
9 8 Benglon 142
10 39 Marah 49
[[11]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 65 Tanian Buku 12
2 56 Santan 78
3 66 Tawon 50
4 27 Kelinjau 244
5 46 Ngayau 2001
6 5 Batangan Muntai 10
7 69 Tinjau 37
8 24 Kedang Pahu 144
9 10 Berau 292
10 57 Segah 152
[[12]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 32 Loa Haur 120
2 12 Birang 58
3 8 Benglon 142
4 27 Kelinjau 244
5 3 Bandang 52
6 35 Mahakam 920
7 31 Lesan 64
8 18 Jelai 38
9 39 Marah 49
10 41 Melan 51
[[13]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 8 Benglon 142
2 3 Bandang 52
3 60 Siagung 38
4 32 Loa Haur 120
5 50 Pelawan 52
6 11 Binatang 38
7 40 Marukangan 32
8 16 Durian 38
9 18 Jelai 38
10 46 Ngayau 2001
[[14]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 41 Melan 51
2 2 Ba’ai 52
3 13 Boh 71
4 53 Rapak 38
5 20 Kahala 77
6 30 Lembak 48
7 11 Binatang 38
8 46 Ngayau 2001
9 70 Wahau 198
10 36 Malinau 58
[[15]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 33 Long gie 49
2 15 Dumaring 49
3 3 Bandang 52
4 54 Sabintulung 15
5 11 Binatang 38
6 47 Ninjah 72
7 55 Sambaratta 39
8 61 Siduung 83
9 5 Batangan Muntai 10
10 16 Durian 38
[[16]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 13 Boh 71
2 19 Jembayan 180
3 18 Jelai 38
4 40 Marukangan 32
5 29 Lati 43
6 37 Mandu 22
7 36 Malinau 58
8 55 Sambaratta 39
9 39 Marah 49
10 8 Benglon 142
[[17]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 34 Lumbungan 18
2 14 Bongan 20
3 50 Pelawan 52
4 15 Dumaring 49
5 42 Mengapah 28
6 30 Lembak 48
7 33 Long gie 49
8 56 Santan 78
9 68 Telen 182
10 22 Karangan 66
[[18]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 32 Loa Haur 120
2 2 Ba’ai 52
3 13 Boh 71
4 38 Manubar 32
5 45 Muyub 48
6 69 Tinjau 37
7 58 Sengatta 92
8 43 Merah 51
9 12 Birang 58
10 15 Dumaring 49
[[19]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 51 Pura 72
2 15 Dumaring 49
3 36 Malinau 58
4 39 Marah 49
5 55 Sambaratta 39
6 9 Bental 58
7 22 Karangan 66
8 3 Bandang 52
9 1 Alau 32
10 2 Ba’ai 52
[[20]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 3 Bandang 52
2 42 Mengapah 28
3 8 Benglon 142
4 13 Boh 71
5 33 Long gie 49
6 69 Tinjau 37
7 55 Sambaratta 39
8 20 Kahala 77
9 28 Keraitan 22
10 70 Wahau 198
[[21]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 30 Lembak 48
2 2 Ba’ai 52
3 50 Pelawan 52
4 64 Tabalar 49
5 8 Benglon 142
6 34 Lumbungan 18
7 10 Berau 292
8 41 Melan 51
9 31 Lesan 64
10 21 Karang 750
[[22]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 45 Muyub 48
2 65 Tanian Buku 12
3 35 Mahakam 920
4 38 Manubar 32
5 13 Boh 71
6 41 Melan 51
7 58 Sengatta 92
8 53 Rapak 38
9 57 Segah 152
10 62 Suaran 19
[[23]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 68 Telen 182
2 44 Murung 2
3 50 Pelawan 52
4 1 Alau 32
5 42 Mengapah 28
6 60 Siagung 38
7 17 Inaran 22
8 37 Mandu 22
9 66 Tawon 50
10 5 Batangan Muntai 10
[[24]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 39 Marah 49
2 33 Long gie 49
3 10 Berau 292
4 43 Merah 51
5 23 Kedang Kepala 319
6 58 Sengatta 92
7 61 Siduung 83
8 29 Lati 43
9 59 Senyiur 66
10 34 Lumbungan 18
[[25]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 24 Kedang Pahu 144
2 26 Kelai 254
3 68 Telen 182
4 43 Merah 51
5 42 Mengapah 28
6 27 Kelinjau 244
7 19 Jembayan 180
8 37 Mandu 22
9 21 Karang 750
10 3 Bandang 52
[[26]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 57 Segah 152
2 2 Ba’ai 52
3 59 Senyiur 66
4 13 Boh 71
5 42 Mengapah 28
6 53 Rapak 38
7 22 Karangan 66
8 39 Marah 49
9 3 Bandang 52
10 4 Bangka 23
[[27]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 67 Telaga 23
2 49 Pela 10
3 68 Telen 182
4 51 Pura 72
5 54 Sabintulung 15
6 34 Lumbungan 18
7 62 Suaran 19
8 36 Malinau 58
9 32 Loa Haur 120
10 69 Tinjau 37
[[28]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 31 Lesan 64
2 68 Telen 182
3 4 Bangka 23
4 28 Keraitan 22
5 36 Malinau 58
6 20 Kahala 77
7 37 Mandu 22
8 32 Loa Haur 120
9 67 Telaga 23
10 1 Alau 32
[[29]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 55 Sambaratta 39
2 59 Senyiur 66
3 30 Lembak 48
4 50 Pelawan 52
5 6 Belayan 319
6 52 Rantau 164
7 44 Murung 2
8 56 Santan 78
9 2 Ba’ai 52
10 51 Pura 72
[[30]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 25 Kedang Rantau 132
2 60 Siagung 38
3 11 Binatang 38
4 13 Boh 71
5 16 Durian 38
6 8 Benglon 142
7 18 Jelai 38
8 49 Pela 10
9 3 Bandang 52
10 42 Mengapah 28
[[31]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 20 Kahala 77
2 61 Siduung 83
3 48 Pari 64
4 69 Tinjau 37
5 54 Sabintulung 15
6 34 Lumbungan 18
7 30 Lembak 48
8 38 Manubar 32
9 43 Merah 51
10 53 Rapak 38
[[32]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 8 Benglon 142
2 5 Batangan Muntai 10
3 41 Melan 51
4 52 Rantau 164
5 17 Inaran 22
6 48 Pari 64
7 66 Tawon 50
8 29 Lati 43
9 20 Kahala 77
10 22 Karangan 66
[[33]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 5 Batangan Muntai 10
2 17 Inaran 22
3 46 Ngayau 2001
4 48 Pari 64
5 60 Siagung 38
6 59 Senyiur 66
7 24 Kedang Pahu 144
8 66 Tawon 50
9 13 Boh 71
10 30 Lembak 48
[[34]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 37 Mandu 22
2 47 Ninjah 72
3 62 Suaran 19
4 43 Merah 51
5 16 Durian 38
6 8 Benglon 142
7 46 Ngayau 2001
8 41 Melan 51
9 1 Alau 32
10 31 Lesan 64
[[35]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 54 Sabintulung 15
2 19 Jembayan 180
3 3 Bandang 52
4 5 Batangan Muntai 10
5 8 Benglon 142
6 62 Suaran 19
7 70 Wahau 198
8 4 Bangka 23
9 11 Binatang 38
10 35 Mahakam 920
[[36]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 23 Kedang Kepala 319
2 4 Bangka 23
3 50 Pelawan 52
4 52 Rantau 164
5 49 Pela 10
6 9 Bental 58
7 59 Senyiur 66
8 57 Segah 152
9 6 Belayan 319
10 56 Santan 78
[[37]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 8 Benglon 142
2 31 Lesan 64
3 38 Manubar 32
4 47 Ninjah 72
5 51 Pura 72
6 30 Lembak 48
7 24 Kedang Pahu 144
8 34 Lumbungan 18
9 55 Sambaratta 39
10 16 Durian 38
[[38]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 63 Sulaiman 23
2 30 Lembak 48
3 47 Ninjah 72
4 60 Siagung 38
5 34 Lumbungan 18
6 31 Lesan 64
7 9 Bental 58
8 44 Murung 2
9 64 Tabalar 49
10 38 Manubar 32
[[39]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 50 Pelawan 52
2 18 Jelai 38
3 23 Kedang Kepala 319
4 60 Siagung 38
5 34 Lumbungan 18
6 29 Lati 43
7 51 Pura 72
8 19 Jembayan 180
9 10 Berau 292
10 24 Kedang Pahu 144
[[40]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 68 Telen 182
2 60 Siagung 38
3 41 Melan 51
4 14 Bongan 20
5 35 Mahakam 920
6 66 Tawon 50
7 19 Jembayan 180
8 46 Ngayau 2001
9 7 Beliwit 19
10 42 Mengapah 28
[[41]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 50 Pelawan 52
2 24 Kedang Pahu 144
3 12 Birang 58
4 27 Kelinjau 244
5 29 Lati 43
6 19 Jembayan 180
7 33 Long gie 49
8 61 Siduung 83
9 58 Sengatta 92
10 16 Durian 38
[[42]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 31 Lesan 64
2 66 Tawon 50
3 34 Lumbungan 18
4 46 Ngayau 2001
5 67 Telaga 23
6 41 Melan 51
7 37 Mandu 22
8 48 Pari 64
9 40 Marukangan 32
10 69 Tinjau 37
[[43]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 41 Melan 51
2 50 Pelawan 52
3 19 Jembayan 180
4 39 Marah 49
5 28 Keraitan 22
6 57 Segah 152
7 68 Telen 182
8 43 Merah 51
9 16 Durian 38
10 20 Kahala 77
[[44]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 22 Karangan 66
2 52 Rantau 164
3 6 Belayan 319
4 37 Mandu 22
5 51 Pura 72
6 69 Tinjau 37
7 70 Wahau 198
8 64 Tabalar 49
9 36 Malinau 58
10 16 Durian 38
[[45]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 23 Kedang Kepala 319
2 48 Pari 64
3 4 Bangka 23
4 63 Sulaiman 23
5 9 Bental 58
6 25 Kedang Rantau 132
7 44 Murung 2
8 33 Long gie 49
9 14 Bongan 20
10 55 Sambaratta 39
[[46]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 2 Ba’ai 52
2 46 Ngayau 2001
3 49 Pela 10
4 8 Benglon 142
5 25 Kedang Rantau 132
6 53 Rapak 38
7 13 Boh 71
8 44 Murung 2
9 36 Malinau 58
10 42 Mengapah 28
[[47]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 40 Marukangan 32
2 56 Santan 78
3 47 Ninjah 72
4 6 Belayan 319
5 50 Pelawan 52
6 15 Dumaring 49
7 17 Inaran 22
8 19 Jembayan 180
9 1 Alau 32
10 58 Sengatta 92
[[48]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 47 Ninjah 72
2 64 Tabalar 49
3 31 Lesan 64
4 59 Senyiur 66
5 33 Long gie 49
6 49 Pela 10
7 51 Pura 72
8 41 Melan 51
9 43 Merah 51
10 67 Telaga 23
[[49]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 55 Sambaratta 39
2 30 Lembak 48
3 45 Muyub 48
4 66 Tawon 50
5 46 Ngayau 2001
6 14 Bongan 20
7 5 Batangan Muntai 10
8 22 Karangan 66
9 18 Jelai 38
10 57 Segah 152
[[50]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 50 Pelawan 52
2 65 Tanian Buku 12
3 67 Telaga 23
4 24 Kedang Pahu 144
5 62 Suaran 19
6 57 Segah 152
7 30 Lembak 48
8 6 Belayan 319
9 23 Kedang Kepala 319
10 47 Ninjah 72
[[51]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 1 Alau 32
2 60 Siagung 38
3 44 Murung 2
4 32 Loa Haur 120
5 69 Tinjau 37
6 5 Batangan Muntai 10
7 33 Long gie 49
8 6 Belayan 319
9 25 Kedang Rantau 132
10 24 Kedang Pahu 144
[[52]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 27 Kelinjau 244
2 10 Berau 292
3 47 Ninjah 72
4 8 Benglon 142
5 4 Bangka 23
6 58 Sengatta 92
7 2 Ba’ai 52
8 28 Keraitan 22
9 19 Jembayan 180
10 15 Dumaring 49
[[53]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 44 Murung 2
2 30 Lembak 48
3 24 Kedang Pahu 144
4 51 Pura 72
5 67 Telaga 23
6 29 Lati 43
7 39 Marah 49
8 56 Santan 78
9 11 Binatang 38
10 55 Sambaratta 39
[[54]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 35 Mahakam 920
2 36 Malinau 58
3 63 Sulaiman 23
4 6 Belayan 319
5 15 Dumaring 49
6 66 Tawon 50
7 41 Melan 51
8 46 Ngayau 2001
9 23 Kedang Kepala 319
10 29 Lati 43
[[55]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 41 Melan 51
2 8 Benglon 142
3 43 Merah 51
4 24 Kedang Pahu 144
5 10 Berau 292
6 50 Pelawan 52
7 29 Lati 43
8 40 Marukangan 32
9 7 Beliwit 19
10 48 Pari 64
[[56]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 17 Inaran 22
2 42 Mengapah 28
3 67 Telaga 23
4 36 Malinau 58
5 46 Ngayau 2001
6 65 Tanian Buku 12
7 13 Boh 71
8 14 Bongan 20
9 32 Loa Haur 120
10 11 Binatang 38
[[57]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 31 Lesan 64
2 60 Siagung 38
3 63 Sulaiman 23
4 59 Senyiur 66
5 16 Durian 38
6 34 Lumbungan 18
7 3 Bandang 52
8 70 Wahau 198
9 9 Bental 58
10 43 Merah 51
[[58]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 46 Ngayau 2001
2 66 Tawon 50
3 70 Wahau 198
4 36 Malinau 58
5 6 Belayan 319
6 37 Mandu 22
7 23 Kedang Kepala 319
8 38 Manubar 32
9 17 Inaran 22
10 40 Marukangan 32
[[59]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 51 Pura 72
2 17 Inaran 22
3 54 Sabintulung 15
4 55 Sambaratta 39
5 42 Mengapah 28
6 15 Dumaring 49
7 47 Ninjah 72
8 39 Marah 49
9 69 Tinjau 37
10 48 Pari 64
[[60]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 20 Kahala 77
2 25 Kedang Rantau 132
3 27 Kelinjau 244
4 53 Rapak 38
5 13 Boh 71
6 48 Pari 64
7 42 Mengapah 28
8 26 Kelai 254
9 62 Suaran 19
10 50 Pelawan 52
[[61]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 18 Jelai 38
2 24 Kedang Pahu 144
3 44 Murung 2
4 54 Sabintulung 15
5 29 Lati 43
6 4 Bangka 23
7 20 Kahala 77
8 65 Tanian Buku 12
9 9 Bental 58
10 26 Kelai 254
[[62]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 32 Loa Haur 120
2 68 Telen 182
3 69 Tinjau 37
4 35 Mahakam 920
5 6 Belayan 319
6 17 Inaran 22
7 40 Marukangan 32
8 27 Kelinjau 244
9 36 Malinau 58
10 3 Bandang 52
[[63]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 65 Tanian Buku 12
2 45 Muyub 48
3 10 Berau 292
4 66 Tawon 50
5 63 Sulaiman 23
6 16 Durian 38
7 64 Tabalar 49
8 22 Karangan 66
9 8 Benglon 142
10 51 Pura 72
[[64]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 65 Tanian Buku 12
2 66 Tawon 50
3 3 Bandang 52
4 37 Mandu 22
5 32 Loa Haur 120
6 61 Siduung 83
7 4 Bangka 23
8 64 Tabalar 49
9 16 Durian 38
10 60 Siagung 38
[[65]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 10 Berau 292
2 28 Keraitan 22
3 18 Jelai 38
4 47 Ninjah 72
5 9 Bental 58
6 51 Pura 72
7 41 Melan 51
8 35 Mahakam 920
9 43 Merah 51
10 60 Siagung 38
[[66]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 37 Mandu 22
2 19 Jembayan 180
3 67 Telaga 23
4 20 Kahala 77
5 52 Rantau 164
6 28 Keraitan 22
7 26 Kelai 254
8 3 Bandang 52
9 69 Tinjau 37
10 56 Santan 78
[[67]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 39 Marah 49
2 63 Sulaiman 23
3 16 Durian 38
4 62 Suaran 19
5 51 Pura 72
6 17 Inaran 22
7 48 Pari 64
8 20 Kahala 77
9 27 Kelinjau 244
10 40 Marukangan 32
[[68]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 26 Kelai 254
2 29 Lati 43
3 64 Tabalar 49
4 53 Rapak 38
5 4 Bangka 23
6 8 Benglon 142
7 16 Durian 38
8 11 Binatang 38
9 65 Tanian Buku 12
10 58 Sengatta 92
[[69]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 63 Sulaiman 23
2 15 Dumaring 49
3 60 Siagung 38
4 28 Keraitan 22
5 7 Beliwit 19
6 44 Murung 2
7 9 Bental 58
8 12 Birang 58
9 2 Ba’ai 52
10 29 Lati 43
[[70]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 34 Lumbungan 18
2 53 Rapak 38
3 70 Wahau 198
4 67 Telaga 23
5 25 Kedang Rantau 132
6 15 Dumaring 49
7 56 Santan 78
8 21 Karang 750
9 43 Merah 51
10 20 Kahala 77
[[71]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 3 Bandang 52
2 19 Jembayan 180
3 44 Murung 2
4 23 Kedang Kepala 319
5 39 Marah 49
6 36 Malinau 58
7 28 Keraitan 22
8 68 Telen 182
9 30 Lembak 48
10 15 Dumaring 49
[[72]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 29 Lati 43
2 25 Kedang Rantau 132
3 42 Mengapah 28
4 69 Tinjau 37
5 14 Bongan 20
6 36 Malinau 58
7 54 Sabintulung 15
8 27 Kelinjau 244
9 44 Murung 2
10 18 Jelai 38
[[73]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 12 Birang 58
2 6 Belayan 319
3 53 Rapak 38
4 25 Kedang Rantau 132
5 19 Jembayan 180
6 61 Siduung 83
7 40 Marukangan 32
8 17 Inaran 22
9 48 Pari 64
10 51 Pura 72
[[74]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 19 Jembayan 180
2 51 Pura 72
3 61 Siduung 83
4 9 Bental 58
5 46 Ngayau 2001
6 54 Sabintulung 15
7 29 Lati 43
8 8 Benglon 142
9 32 Loa Haur 120
10 57 Segah 152
[[75]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 12 Birang 58
2 65 Tanian Buku 12
3 68 Telen 182
4 55 Sambaratta 39
5 44 Murung 2
6 34 Lumbungan 18
7 49 Pela 10
8 37 Mandu 22
9 10 Berau 292
10 25 Kedang Rantau 132
[[76]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 54 Sabintulung 15
2 53 Rapak 38
3 25 Kedang Rantau 132
4 52 Rantau 164
5 55 Sambaratta 39
6 37 Mandu 22
7 48 Pari 64
8 61 Siduung 83
9 58 Sengatta 92
10 66 Tawon 50
[[77]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 39 Marah 49
2 19 Jembayan 180
3 69 Tinjau 37
4 45 Muyub 48
5 28 Keraitan 22
6 33 Long gie 49
7 34 Lumbungan 18
8 60 Siagung 38
9 27 Kelinjau 244
10 13 Boh 71
[[78]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 66 Tawon 50
2 64 Tabalar 49
3 4 Bangka 23
4 51 Pura 72
5 41 Melan 51
6 39 Marah 49
7 12 Birang 58
8 38 Manubar 32
9 14 Bongan 20
10 35 Mahakam 920
[[79]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 29 Lati 43
2 10 Berau 292
3 69 Tinjau 37
4 16 Durian 38
5 51 Pura 72
6 19 Jembayan 180
7 20 Kahala 77
8 33 Long gie 49
9 39 Marah 49
10 45 Muyub 48
[[80]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 3 Bandang 52
2 52 Rantau 164
3 8 Benglon 142
4 20 Kahala 77
5 48 Pari 64
6 65 Tanian Buku 12
7 27 Kelinjau 244
8 18 Jelai 38
9 21 Karang 750
10 13 Boh 71
[[81]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 40 Marukangan 32
2 64 Tabalar 49
3 19 Jembayan 180
4 43 Merah 51
5 47 Ninjah 72
6 15 Dumaring 49
7 36 Malinau 58
8 26 Kelai 254
9 1 Alau 32
10 29 Lati 43
[[82]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 51 Pura 72
2 43 Merah 51
3 33 Long gie 49
4 1 Alau 32
5 64 Tabalar 49
6 28 Keraitan 22
7 57 Segah 152
8 54 Sabintulung 15
9 68 Telen 182
10 61 Siduung 83
[[83]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 35 Mahakam 920
2 49 Pela 10
3 13 Boh 71
4 24 Kedang Pahu 144
5 62 Suaran 19
6 12 Birang 58
7 52 Rantau 164
8 30 Lembak 48
9 11 Binatang 38
10 7 Beliwit 19
[[84]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 1 Alau 32
2 30 Lembak 48
3 36 Malinau 58
4 51 Pura 72
5 6 Belayan 319
6 33 Long gie 49
7 22 Karangan 66
8 39 Marah 49
9 27 Kelinjau 244
10 4 Bangka 23
[[85]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 52 Rantau 164
2 66 Tawon 50
3 35 Mahakam 920
4 13 Boh 71
5 20 Kahala 77
6 19 Jembayan 180
7 26 Kelai 254
8 70 Wahau 198
9 24 Kedang Pahu 144
10 27 Kelinjau 244
[[86]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 42 Mengapah 28
2 4 Bangka 23
3 38 Manubar 32
4 65 Tanian Buku 12
5 22 Karangan 66
6 43 Merah 51
7 23 Kedang Kepala 319
8 30 Lembak 48
9 48 Pari 64
10 50 Pelawan 52
[[87]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 66 Tawon 50
2 31 Lesan 64
3 24 Kedang Pahu 144
4 21 Karang 750
5 17 Inaran 22
6 57 Segah 152
7 52 Rantau 164
8 47 Ninjah 72
9 36 Malinau 58
10 19 Jembayan 180
[[88]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 57 Segah 152
2 8 Benglon 142
3 44 Murung 2
4 54 Sabintulung 15
5 40 Marukangan 32
6 62 Suaran 19
7 24 Kedang Pahu 144
8 13 Boh 71
9 34 Lumbungan 18
10 33 Long gie 49
[[89]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 12 Birang 58
2 10 Berau 292
3 15 Dumaring 49
4 28 Keraitan 22
5 1 Alau 32
6 38 Manubar 32
7 70 Wahau 198
8 6 Belayan 319
9 68 Telen 182
10 40 Marukangan 32
[[90]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 48 Pari 64
2 40 Marukangan 32
3 44 Murung 2
4 27 Kelinjau 244
5 3 Bandang 52
6 28 Keraitan 22
7 11 Binatang 38
8 42 Mengapah 28
9 60 Siagung 38
10 52 Rantau 164
[[91]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 19 Jembayan 180
2 8 Benglon 142
3 2 Ba’ai 52
4 62 Suaran 19
5 10 Berau 292
6 58 Sengatta 92
7 29 Lati 43
8 55 Sambaratta 39
9 44 Murung 2
10 61 Siduung 83
[[92]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 61 Siduung 83
2 3 Bandang 52
3 69 Tinjau 37
4 55 Sambaratta 39
5 68 Telen 182
6 32 Loa Haur 120
7 19 Jembayan 180
8 21 Karang 750
9 67 Telaga 23
10 53 Rapak 38
[[93]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 17 Inaran 22
2 41 Melan 51
3 33 Long gie 49
4 65 Tanian Buku 12
5 55 Sambaratta 39
6 57 Segah 152
7 12 Birang 58
8 35 Mahakam 920
9 49 Pela 10
10 8 Benglon 142
[[94]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 21 Karang 750
2 9 Bental 58
3 25 Kedang Rantau 132
4 51 Pura 72
5 18 Jelai 38
6 19 Jembayan 180
7 5 Batangan Muntai 10
8 16 Durian 38
9 64 Tabalar 49
10 39 Marah 49
[[95]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 65 Tanian Buku 12
2 67 Telaga 23
3 20 Kahala 77
4 2 Ba’ai 52
5 26 Kelai 254
6 47 Ninjah 72
7 60 Siagung 38
8 8 Benglon 142
9 6 Belayan 319
10 58 Sengatta 92
[[96]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 54 Sabintulung 15
2 21 Karang 750
3 27 Kelinjau 244
4 29 Lati 43
5 32 Loa Haur 120
6 19 Jembayan 180
7 2 Ba’ai 52
8 15 Dumaring 49
9 52 Rantau 164
10 60 Siagung 38
[[97]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 59 Senyiur 66
2 66 Tawon 50
3 46 Ngayau 2001
4 7 Beliwit 19
5 33 Long gie 49
6 35 Mahakam 920
7 62 Suaran 19
8 30 Lembak 48
9 63 Sulaiman 23
10 26 Kelai 254
[[98]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 21 Karang 750
2 28 Keraitan 22
3 50 Pelawan 52
4 46 Ngayau 2001
5 60 Siagung 38
6 56 Santan 78
7 43 Merah 51
8 15 Dumaring 49
9 47 Ninjah 72
10 18 Jelai 38
[[99]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 3 Bandang 52
2 68 Telen 182
3 13 Boh 71
4 62 Suaran 19
5 48 Pari 64
6 11 Binatang 38
7 58 Sengatta 92
8 17 Inaran 22
9 37 Mandu 22
10 47 Ninjah 72
[[100]]
# A tibble: 10 × 3
No Nama `Panjang (km)`
<dbl> <chr> <dbl>
1 40 Marukangan 32
2 37 Mandu 22
3 16 Durian 38
4 44 Murung 2
5 25 Kedang Rantau 132
6 54 Sabintulung 15
7 52 Rantau 164
8 45 Muyub 48
9 33 Long gie 49
10 60 Siagung 38Menghitung Rata-rata dan Varians setiap Sampling
mean_list <- sapply(
samples_list,
function(x) mean(x$`Panjang (km)`)
)
var_list <- sapply(
samples_list,
function(x) var(x$`Panjang (km)`)
)
mean_d <- data.frame(
mean_value = mean_list,
var_value = var_list
)
mean_d mean_value var_value
1 59.7 2335.3444
2 170.8 80775.0667
3 98.4 10104.4889
4 158.7 74465.7889
5 62.6 3846.9333
6 72.3 2868.2333
7 74.7 6339.3444
8 71.6 6114.4889
9 43.5 494.7222
10 59.0 2356.0000
11 302.0 365644.2222
12 173.8 72782.8444
13 255.1 377779.2111
14 263.2 375032.6222
15 44.5 501.1667
16 67.4 2696.0444
17 59.0 2230.2222
18 61.0 718.0000
19 52.7 138.9000
20 71.5 3164.2778
21 151.8 50514.4000
22 143.5 76107.1667
23 43.8 2607.5111
24 106.2 11502.8444
25 190.7 46191.1222
26 59.7 1309.1222
27 55.4 3143.1556
28 62.3 2794.4556
29 89.2 8216.8444
30 58.7 1948.4556
31 46.3 529.7889
32 68.9 2389.2111
33 251.4 379226.9333
34 249.2 380105.9556
35 159.7 76498.9000
36 124.1 12961.2111
37 66.9 1913.8778
38 40.4 483.6000
39 119.6 12229.8222
40 348.9 411855.8778
41 98.3 4795.3444
42 236.2 384791.0667
43 85.4 3762.2667
44 102.3 9090.0111
45 72.9 8764.9889
46 253.4 379212.7111
47 92.8 8379.0667
48 50.7 416.4556
49 247.2 381217.2889
50 116.0 13780.8889
51 88.3 9188.2333
52 116.8 8967.5111
53 53.6 1480.7111
54 383.3 399775.3444
55 89.0 6910.0000
56 239.3 384216.2333
57 60.6 2593.6000
58 305.3 369280.6778
59 44.7 407.5667
60 97.9 7332.3222
61 66.6 6042.7111
62 198.6 74416.2667
63 79.2 6840.4000
64 48.7 1024.6778
65 161.4 77052.2667
66 90.9 6529.6556
67 64.0 4447.5556
68 72.9 5472.7667
69 36.4 361.6000
70 141.4 48722.2667
71 96.1 9843.8778
72 61.7 5370.0111
73 100.0 8230.0000
74 286.6 365576.0444
75 76.7 9213.7889
76 69.9 2342.5444
77 75.6 5616.7111
78 132.4 76834.0444
79 88.5 6913.6111
80 161.4 47550.4889
81 82.0 5502.6667
82 70.7 3050.2333
83 149.1 76077.6556
84 96.0 10077.7778
85 230.2 63693.0667
86 69.5 8000.0556
87 165.6 45225.6000
88 64.4 3545.6000
89 121.6 13423.1556
90 68.4 5736.7111
91 94.4 7834.0444
92 150.4 47853.1556
93 145.5 76508.9444
94 137.6 48813.8222
95 108.1 10442.5444
96 165.5 47828.0556
97 344.9 415352.1000
98 315.1 399551.8778
99 63.4 2354.4889
100 54.0 2721.1111head(mean_list)[1] 59.7 170.8 98.4 158.7 62.6 72.3head(var_list)[1] 2335.344 80775.067 10104.489 74465.789 3846.933 2868.233Histogram Rata-rata Sampling
ggplot(mean_d, aes(x = mean_value)) +
geom_histogram(binwidth = 0.3, fill = "steelblue", color = "black") +
labs(
title = "Histogram Sungai",
x = "Rataan Panjang Sungai",
y = "Frequency"
) +
theme_minimal()
Histogram Varians Sampling
ggplot(mean_d, aes(x = var_value)) +
geom_histogram(binwidth = 0.6, fill = "steelblue", color = "black") +
labs(
title = "Histogram Sungai",
x = "Ragam Panjang Sungai",
y = "Frequency"
) +
theme_minimal()