Question: this is giving nan for null deviance q5_raceResults % filter(year %in% 1950:2023) %>% filter(grid > 0, position > 0) %>% mutate(win = ifelse(position == 1,
this is giving nan for null deviance
q5_raceResults <- raceResults %>% filter(year %in% 1950:2023) %>% filter(grid > 0, position > 0) %>% mutate(win = ifelse(position == 1, 1, 0))
model <- glm(win ~ grid, family = binomial(), data = q5_raceResults, weights = q5_raceResults$win)
Q5 <- summary(model)
Step by Step Solution
There are 3 Steps involved in it
1 Expert Approved Answer
Step: 1 Unlock
Question Has Been Solved by an Expert!
Get step-by-step solutions from verified subject matter experts
Step: 2 Unlock
Step: 3 Unlock
