r - 对数线性模型的功效分析

Question

我有一个对数线性模型。如何对其进行功率分析？使用示例数据集：

library(MASS)
UCBAdf <- as.data.frame(UCBAdmissions)

我的对数线性模型：

glmFitT <- glm(Freq ~ Admit * Dept * Gender, family=poisson(link="log"), data=UCBAdf)

任何帮助将不胜感激！