r - 如何计算广义最小二乘模型的库克距离

Question

有谁知道如何计算gls类对象的 Cooks 距离（通过nlme包获得）？标准的 cooks.distance 函数似乎只适用于 lm 类对象。