Homework 4

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.2.1     ✔ readr     2.2.0
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.3     ✔ tibble    3.3.1
## ✔ lubridate 1.9.5     ✔ tidyr     1.3.2
## ✔ purrr     1.2.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readxl)
library(pastecs)

## 
## Attaching package: 'pastecs'
## 
## The following objects are masked from 'package:dplyr':
## 
##     first, last
## 
## The following object is masked from 'package:tidyr':
## 
##     extract

hotline_data <- read_csv("hotline_data.csv")

## Rows: 2184 Columns: 11
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): State, Timeframe, Call Average Time to Answer, Text Average Time to...
## dbl (6): Number of Routed Calls, Call Answer Rate, Number of Routed Texts, T...
## 
## ℹ 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.

pastecs::stat.desc(hotline_data$`Call Answer Rate`)

##      nbr.val     nbr.null       nbr.na          min          max        range 
## 2.184000e+03 5.300000e+01 0.000000e+00 0.000000e+00 1.000000e+00 1.000000e+00 
##          sum       median         mean      SE.mean CI.mean.0.95          var 
## 1.797847e+03 8.723800e-01 8.231900e-01 3.620146e-03 7.099292e-03 2.862232e-02 
##      std.dev     coef.var 
## 1.691813e-01 2.055191e-01

This variable is the call answer rate for the 988 Lifeline. It measures the call answer rate in all 50 states.

hotline_clean<-hotline_data |> drop_na(`Call Answer Rate`) %>% filter(`Call Answer Rate`>0)

hist(hotline_clean$`Call Answer Rate`)

hotline_clean<-hotline_clean %>% mutate(`Call Answer Rate`=sqrt(`Call Answer Rate`))

hist(hotline_clean$`Call Answer Rate`)