Can I get some help of how to code this in R:

# Question 4 # Fit a model to predict bill length from bill depth with # different intercepts and slopes based on species for # the palmerpenguins data # What is the estimated intercept term for Adelie penguins? # Save your answer in the variable q4.a q4.a<-NA # What is the estimated intercept term for Gentoo penguins? # Save your answer in the variable q4.b q4.b<-NA # What is the estimated slope term for Adelie penguins? # Save your answer in the variable q4.c q4.c<-NA # What is the estimated slope term for Chinstrap penguins? # Save your answer in the variable q4.d q4.d<-NA # What is the expected bill length for a Gentoo # penguin with a bill depth of 15mm? # Save your answer in the variable q4.e q4.e<-NA # Construct a 80% prediction interval for the # bill length of a Chinstrap penguin with a bill depth of 20mm. # Save your answer in the variable q4.f # Your answer should be formatted as c(lowerbound,upperbound) q4.f<-NA