# Cara input atau impor data dari file notepad (txt) ke R
data_stunting2 = read.delim(file.choose(), header = TRUE)
View(data_stunting2)
str(data_stunting2)
## 'data.frame': 802 obs. of 12 variables:
## $ id : chr "B0001" "B0002" "B0003" "B0004" ...
## $ kode_kec : chr "K16" "K03" "K12" "K03" ...
## $ kecamatan: chr "Kecamatan P" "Kecamatan C" "Kecamatan L" "Kecamatan C" ...
## $ jk : int 2 1 1 2 2 1 1 2 2 2 ...
## $ umur_bln : int 2 37 8 14 29 53 34 48 46 15 ...
## $ tb_cm : num 48 83.7 68.6 77.8 82.8 98 94.1 93 100 71.9 ...
## $ bb_kg : num 3.9 8.9 9.2 9.4 12.6 14.9 14.2 12.6 14.7 7.8 ...
## $ cara_ukur: chr "L" "H" "L" "L" ...
## $ bblr : chr "Ya" "Ya" "Tidak" "Tidak" ...
## $ asi_eks : chr "Tidak" "Tidak" "Ya" "Tidak" ...
## $ pend_ibu : chr "SD ke bawah" "SMP" "SMA" "SMA" ...
## $ sanitasi : chr "Tidak layak" "Tidak layak" "Tidak layak" "Layak" ...
head(data_stunting2)
## id kode_kec kecamatan jk umur_bln tb_cm bb_kg cara_ukur bblr asi_eks
## 1 B0001 K16 Kecamatan P 2 2 48.0 3.9 L Ya Tidak
## 2 B0002 K03 Kecamatan C 1 37 83.7 8.9 H Ya Tidak
## 3 B0003 K12 Kecamatan L 1 8 68.6 9.2 L Tidak Ya
## 4 B0004 K03 Kecamatan C 2 14 77.8 9.4 L Tidak Tidak
## 5 B0005 K03 Kecamatan C 2 29 82.8 12.6 H Tidak Ya
## 6 B0006 K10 Kecamatan J 1 53 98.0 14.9 H Tidak Tidak
## pend_ibu sanitasi
## 1 SD ke bawah Tidak layak
## 2 SMP Tidak layak
## 3 SMA Tidak layak
## 4 SMA Layak
## 5 SD ke bawah Tidak layak
## 6 SMA Tidak layak
tail(data_stunting2)
## id kode_kec kecamatan jk umur_bln tb_cm bb_kg cara_ukur bblr asi_eks
## 797 B0797 K07 Kecamatan G 2 53 100.9 17.3 H Ya Tidak
## 798 B0798 K11 Kecamatan K 1 21 83.2 13.7 L Tidak Ya
## 799 B0799 K14 Kecamatan N 1 38 91.4 14.0 H Tidak Tidak
## 800 B0800 K10 Kecamatan J 2 54 99.9 14.5 H Tidak Ya
## 801 B0015 K13 Kecamatan M 1 21 79.1 11.0 L Tidak Tidak
## 802 B0230 K13 Kecamatan M 2 44 95.9 14.7 H Tidak Ya
## pend_ibu sanitasi
## 797 SD ke bawah Tidak layak
## 798 SMP Layak
## 799 SMP Layak
## 800 SD ke bawah Layak
## 801 SMA Layak
## 802 SMA Tidak layak
mean(data_stunting2$umur_bln)
## [1] 29.99751