I am so confused on where to start and the questions answered are also wrong, please help

# Question 1 # Fit a model to predict bill length from bill depth for # the palmerpenguins data, just called 'penguins' # What is the estimated intercept term of the model? # Save your answer in the variable q1.a model <- lm(bill_length_mm ~ bill_depth_mm, data = penguins) q1.a<-coef(model)[1] # What is the estimated slope term of the model? # Save your answer in the variable q1.b q1.b<-coef(model)[2] # Predict the expected bill length for a penguin with # a bill depth of 14mm. # Save your answer in the variable q1.c q1.c<-NA # Construct a 90% prediction interval for the # bill length of a penguin with a bill depth of 19mm # Save your answer in the variable q1.d # Your answer should be formatted as c(lowerbound,upperbound) q1.d<-NA # Construct a 99% confidence interval for the average bill # length of a penguin with a bill depth of 19mm. # Save your answer in the variable q1.e # Your answer should be formatted as c(lowerbound,upperbound) q1.e<-NA # What is the p-value for determining if there is evidence that # the slope of this model is different from 0? # Save your answer in the variable q1.f q1.f<-NA