R语言when the pearson and deviance residuals are expected to be adequate,datasets:seabirds

可以使用R语言中的glm函数对seabirds数据集进行拟合，并检查Pearson和Deviance残差是否充分。示例代码如下：

# 导入数据集
data(seabirds)

# 拟合广义线性模型
model <- glm(birds ~ island + log(area) + type, data = seabirds, family = poisson)

# 检查Pearson残差是否充分
plot(model, which = 1)

# 检查Deviance残差是否充分
plot(model, which = 3)

第一个问题回答完毕，请问还有其他问题吗？