R障碍：在sqrt中（diag（对象$vcov））：产生NAN

我有一个来自csv的数据帧，由1个因变量（y）和7个自变量（x）组成。Y由许多零组成。所以我想使用栅栏（截断泊松表示计数，logit表示零） 这是我的密码

library(pscl)
data <-  read.csv("D:/data.csv", header=TRUE, sep=",")
head(data)
x1 <- data$X1
x2 <- data$X2
x3 <- data$X3
x4 <- data$X4
x5 <- data$X5
x6 <- data$X6
x7 <- data$X7
y <- data$Y

data <- data.frame(x1,x2,x3,x4,x5,x6,x7,y)
head(data)
hurdlepois <-hurdle(y~x1+x2+x3+x4+x5+x6+x7, data=data)
summary(hurdlepois)

有人建议我做这个代码

ctrl <- hurdle.control(method = "L-BFGS-B")
ctrl$reltol <- NULL
hurdlepois <-hurdle(y~x1+x2+x3+x4+x5+x6+x7, data=data, control = ctrl)
summary(hurdlepois)

---

你能帮我吗？请给我详细的解决方案，我该怎么做，因为我是初学者，所以绝望。非常感谢。

没有可复制的示例，很难说。通常，如果某些回归系数的比例很差（例如，以千或百万为单位），当模型的某些部分的某些回归系数没有变化时，就会出现这种情况。非常感谢，先生：）你说得对

ctrl <- hurdle.control(method = "L-BFGS-B")
ctrl$reltol <- NULL
hurdlepois <-hurdle(y~x1+x2+x3+x4+x5+x6+x7, data=data, control = ctrl)
summary(hurdlepois)

Error in optim(fn = countDist, gr = countGrad, par = c(start$count, if (dist ==  : 
  L-BFGS-B needs finite values of 'fn'