library(readxl) library(ggplot2) library(car)

Read the data

file_path <- “C:/Users/James/OneDrive/R/Copy of Payton Manning Stats.xlsx” df <- read_excel(file_path, sheet = “Worksheet”)

df\(Rate <- as.numeric(df\)Rate)

Subset data

dome_games <- df\(Rate[df\)dome/open == “dome”] open_games <- df\(Rate[df\)dome/open == “open”]

Check for normality

print(shapiro.test(dome_games)) print(shapiro.test(open_games))

Graphing to check

ggplot(df, aes(x = Rate, fill = dome/open)) + geom_histogram(alpha = 0.5, position = “identity”, bins = 20) + labs(title = “Passer Rating Distribution”, x = “Passer Rating”, y = “Count”) + theme_minimal()

Check for equal variance

print(leveneTest(Rate ~ dome/open, data = df))

Performing t-test

t_test_result <- t.test(dome_games, open_games, alternative = “greater”, var.equal = var.test(dome_games, open_games)$p.value > 0.05)

Results

print(t_test_result)