Energy Burden

Import and rename dataset

library(readxl)
X2024_Dataset_Approved_Applications <- read_excel("D:/Escuela/UTSA Grad (2023-2025)/2025-1 Capstone/Energy burden/2024 Dataset- Approved Applications.xlsx")

Approved24 <- X2024_Dataset_Approved_Applications
rm(X2024_Dataset_Approved_Applications)

Add Random Numbers

Approved24$RandomNums <- sample(1:5773, nrow(Approved24), replace = FALSE)

Create a subset with random numbers up to 288

AppSub <- Approved24 %>%
     filter(Approved24$RandomNums < 289)

Create tables summarizing by attributes

OwnerStats <- Approved24 %>%
     group_by(`Ownership Status`) %>%
     summarise(Count = n(), Percentage = (n() / nrow(Approved24)) * 100)

OwnerStatSub <- AppSub %>%
     group_by(`Ownership Status`) %>%
     summarise(Count = n(), Percentage = (n() / nrow(AppSub)) * 100)

HomeType <- Approved24 %>%
     group_by(`What type of home do you live in`) %>%
     summarise(Count = n(), Percentage = (n() / nrow(Approved24)) * 100)

HomeTypeSub <- AppSub %>%
     group_by(`What type of home do you live in`) %>%
     summarise(Count = n(), Percentage = (n() / nrow(AppSub)) * 100)