fit <- apc.fit.model(data,model.family,model.design)
Error in apc.data.list$response : 类别为'closure'的对象不可以取子集