i have dataframe csv, consist 1 dependent variable (y) , 7 independent variables (x's). y consist of many zeros. want use hurdle (truncated poisson count , logit zero) code
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) the results there coefficients, there nans in std.error. , warning
warning message: in sqrt(diag(object$vcov)) : nans produced someone suggest me code
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) but error when run hurdlepois <-hurdle(y~x1+x2+x3+x4+x5+x6+x7, data=data, control = ctrl)
error in optim(fn = countdist, gr = countgrad, par = c(start$count, if (dist == : l-bfgs-b needs finite values of 'fn' can me please? please give me detail solution should do, because i'm beginner , desperate. thank much.
