```{r} LocalRents <- read.csv(“https://drkblake.com/wp-content/uploads/2024/01/SAFMRNash24.csv”)} LocalRents\(ZIP <- as.character(LocalRents\)ZIP) View(LocalRents) summary(LocalRents) hist(LocalRents$Two_BR, main = “Fair Market Rent in Nashville-area ZIP codes”, xlab = “2024 Two-bedroom monthly FMR”)

```