运行程序时候提示undefined real result，修改过初值了，但是还是跑步起来，请问如何解决？


model{
c <- 1000
for (i in 1:N){
zeros[i] <- 0
zeros[i] ~ dpois(zeros.mean[i])
zeros.mean[i] <- -l[i]+c
l[i] <- log(lambda*beta*gama*pow((x[i]/alpha),(beta-1))*exp(pow((x[i]/alpha),beta))*exp(lambda*alpha*(1-exp(pow((x[i]/alpha),beta))))*pow((1-exp(lambda*alpha*(1-exp(pow((x[i]/alpha),beta))))),(gama-1)));
}
# prior
alpha ~ dgamma(400,10);
beta ~ dunif(0,10);
lambda ~dunif(0,1);
gama ~dunif(0,1);
}


list(x=c(0.0006,0.1281,0.1487,0.2499,0.5107,1.2060,2.9581,3.5664,4.3006, 5.5184),N=10)

list(alpha = 40, beta = 1,lambda= 0.5,gama=0.5)