HW1

library(readr)
library(readxl)

## Warning: package 'readxl' was built under R version 4.3.3

## Warning: package 'readxl' was built under R version 4.3.3
library(dplyr)

## Warning: package 'dplyr' was built under R version 4.3.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Warning: package 'dplyr' was built under R version 4.3.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
week_2_Hw1 <- read_excel("C:/Users/bex/Desktop/R Workshop/Homeworks/Week 2/Week 2 HW1.xlsx")
week_2_Hw1_cleaned <- week_2_Hw1 %>%
  select(-c("Indicator",, "Year", "FIPS", "Age Group", "Race/Ethnicity", "Sex", "Transmission Category"))
week_2_Hw1_rates <- week_2_Hw1_cleaned %>%
  mutate(Rate = (Cases / Population) * 10000)
print(week_2_Hw1_rates)

## # A tibble: 51 × 5
##    Geography             Cases Percent Population  Rate
##    <chr>                 <dbl>   <dbl>      <dbl> <dbl>
##  1 Alabama               13992    84.4      16600 8429.
##  2 Alaska                  721    84.9        850 8482.
##  3 Arizona               17472    84.3      20700 8441.
##  4 Arkansas               5948    79.8       7500 7931.
##  5 California           133497    87.3     152800 8737.
##  6 Colorado              13031    87.7      14900 8746.
##  7 Connecticut           10391    91.7      11300 9196.
##  8 Delaware               3381    87.5       3900 8669.
##  9 District of Columbia  13655    94        14500 9417.
## 10 Florida              113398    86.7     130900 8663.
## # ℹ 41 more rows