R语言使用Epi包apc.fit

求助：

R语言Epi包apc.fit出现以下情况是什么原因呢?

names(prostate)<-c("A","P","D","γ")
> A1<-apc.fit(prostate,
+        npar=c(A=5,P=4,C=5),
+         model = "ns",
+         dr.extr="D",
+        parm = "ACP",
+         scale=10^5)
Error in `[.data.frame`(data, , c("A", "P", "D", "Y")) : 选择了未定义的列