| ... | @@ -47,13 +47,20 @@ The raw data consist of: |
... | @@ -47,13 +47,20 @@ The raw data consist of: |
|
|
- Code of Census Blok become “bs_o”
|
|
- Code of Census Blok become “bs_o”
|
|
|
- Raw Data Y become “pop”
|
|
- Raw Data Y become “pop”
|
|
|
- Code of Area become “kab”
|
|
- Code of Area become “kab”
|
|
|
|
|
|
|
```
|
|
```
|
|
|
colnames(data_1) <- c("bs_o","pop","kab")
|
|
colnames(data_1) <- c("bs_o","pop","kab")
|
|
|
```
|
|
```
|
|
|
|
|
|
|
|
3. Run the function of complex survey by input:
|
|
3. Run the function of complex survey by input:
|
|
|
- Data
|
|
- Data
|
|
|
- Sampling fraction (in decimal)
|
|
- Sampling fraction (in decimal)
|
|
|
- Number of iteration
|
|
- Number of iteration
|
|
|
|
|
|
|
|
```
|
|
|
|
res_1_srs_0.8 <- resampling_srs(data = data_1, prop = 0.8, iterasi = 100)
|
|
|
```
|
|
```
|
|
|
|
4. View the result of complex survey estimation
|
|
|
|
|
|
|
|
|
```
|
|
|
|
View(res_1_srs_0.8)
|
|
|
|
``` |