Final analasys of health data

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.4     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   2.0.1     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

setwd("~/Desktop/sources, sections and")
ushealth<-read_csv("Health_18 .csv")

## Rows: 7187 Columns: 155

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (155): CASEID, DEM_AGE_LONG, DEM_AGE_SHORT, DEM_GENDER, DEM_REGION, DEM_...

## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

summary(ushealth$DEM_AGE_LONG)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   18.00   41.00   56.00   53.87   66.00   95.00

#hist(ushealth$DEM_AGE_LONG)