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 blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Mathematics Questions!