UTS2

R Markdown

library(readxl)

data_kesehatan <- readxl::read_excel("data_kesehatan.xlsx")
head(data_kesehatan)

## # A tibble: 6 × 10
##      id  umur jenis_kelamin tinggi_badan berat_badan gula_darah tekanan_sistolik
##   <dbl> <dbl> <chr>                <dbl>       <dbl>      <dbl>            <dbl>
## 1     1    33 Perempuan             160.        62.9       80.1             129.
## 2     2    59 Perempuan             153.        54.7       79.2             109.
## 3     3    39 Perempuan             156.        66.8       99.6             133.
## 4     4    64 Laki-laki             174.        54.8       97.4             109.
## 5     5    67 Perempuan             164.        62.2       49.0             129.
## 6     6    20 Perempuan             150.        61.2      121.              136.
## # ℹ 3 more variables: tekanan_diastolik <dbl>, kolesterol <dbl>,
## #   skor_kesehatan <dbl>

#MENCARI RATA RATA UMUR RESPONDEN
mean(data_kesehatan$umur, na.rm = TRUE)

## [1] 44.315

#MENCARI PERBEDAAN RATA RATA TINGGI BADAN LAKI LAKI DAN PEREMPUAN
t.test(tinggi_badan ~ jenis_kelamin, data = data_kesehatan)

## 
##  Welch Two Sample t-test
## 
## data:  tinggi_badan by jenis_kelamin
## t = 12.641, df = 197.73, p-value < 2.2e-16
## alternative hypothesis: true difference in means between group Laki-laki and group Perempuan is not equal to 0
## 95 percent confidence interval:
##   9.600039 13.148950
## sample estimates:
## mean in group Laki-laki mean in group Perempuan 
##                171.0215                159.6470

#MENCARI RATA RATA TINGGI BADAN LAKI LAKI
mean(data_kesehatan$tinggi_badan[data_kesehatan$jenis_kelamin == "Laki-laki"], na.rm = TRUE)

## [1] 171.0215