library(readxl)
data_simulasi_stunting <- read_excel("C:/Users/Acer/Downloads/data_simulasi_stunting.xlsx")
View(data_simulasi_stunting)
str(data_simulasi_stunting)
## tibble [100 × 12] (S3: tbl_df/tbl/data.frame)
##  $ id                   : chr [1:100] "B0001" "B0002" "B0003" "B0004" ...
##  $ umur_bulan           : num [1:100] 48 11 32 10 14 36 27 9 40 20 ...
##  $ berat_lahir_kg       : num [1:100] 3.64 2.84 3.24 3.2 3.41 4.21 2.59 2.91 4.22 3.1 ...
##  $ tinggi_ibu_cm        : num [1:100] 155 161 156 152 161 ...
##  $ protein_g_hari       : num [1:100] 21.2 29.1 43.7 30.2 33.3 34.1 19.7 38 35.8 38.5 ...
##  $ umur_ibu_tahun       : num [1:100] 30.2 20.8 18 25.9 24.7 27.9 18.8 25.8 35.2 41.3 ...
##  $ asi_tidak_eksklusif  : num [1:100] 0 0 0 0 0 0 0 1 1 0 ...
##  $ sanitasi_tidak_layak : num [1:100] 0 1 0 0 0 0 0 1 0 1 ...
##  $ pendidikan_ibu_rendah: num [1:100] 1 0 0 1 0 0 1 0 0 0 ...
##  $ diare_2minggu        : num [1:100] 0 0 1 1 0 0 1 0 1 1 ...
##  $ laki_laki            : num [1:100] 0 0 0 1 0 0 0 0 1 1 ...
##  $ stunting             : num [1:100] 0 0 1 0 0 0 1 0 0 0 ...
head(data_simulasi_stunting)
## # A tibble: 6 × 12
##   id    umur_bulan berat_lahir_kg tinggi_ibu_cm protein_g_hari umur_ibu_tahun
##   <chr>      <dbl>          <dbl>         <dbl>          <dbl>          <dbl>
## 1 B0001         48           3.64          155.           21.2           30.2
## 2 B0002         11           2.84          161.           29.1           20.8
## 3 B0003         32           3.24          156.           43.7           18  
## 4 B0004         10           3.2           152.           30.2           25.9
## 5 B0005         14           3.41          161.           33.3           24.7
## 6 B0006         36           4.21          149.           34.1           27.9
## # ℹ 6 more variables: asi_tidak_eksklusif <dbl>, sanitasi_tidak_layak <dbl>,
## #   pendidikan_ibu_rendah <dbl>, diare_2minggu <dbl>, laki_laki <dbl>,
## #   stunting <dbl>
tail(data_simulasi_stunting)
## # A tibble: 6 × 12
##   id    umur_bulan berat_lahir_kg tinggi_ibu_cm protein_g_hari umur_ibu_tahun
##   <chr>      <dbl>          <dbl>         <dbl>          <dbl>          <dbl>
## 1 B0095         40           2.02          158.           32.2           24.6
## 2 B0096         59           3.15          163.           37.4           25.3
## 3 B0097         43           3.29          157.           34.5           26.8
## 4 B0098         54           2.46          151.           48.9           18  
## 5 B0099         41           2.84          158            34.9           30.9
## 6 B0100         15           3.07          149.           23.6           24.5
## # ℹ 6 more variables: asi_tidak_eksklusif <dbl>, sanitasi_tidak_layak <dbl>,
## #   pendidikan_ibu_rendah <dbl>, diare_2minggu <dbl>, laki_laki <dbl>,
## #   stunting <dbl>
mean(data_simulasi_stunting$umur_bulan)
## [1] 33.19