Censoring in R2OpenBUGS

Hi,

I am trying to run the following model for OpenBUGS and want to use
R2OpenBUGS package. The model specifies weibull distribution for censored
data.

   weibull.model <- function()
   {

     for(i in 1:n)
     {

       exp.alpha[i] ~ dgamma(a.alpha, b.alpha)
       alpha[i] <- log(exp.alpha[i])

       linear.part[i] <- alpha[i] + inprod(nu[ ], x[i, ])
       lambda[i] <- exp(linear.part[i])

       time[i] ~ (dweib(shape, lambda[i]) C(censored.time[i], ))

     }

     shape ~ dgamma(a.shape, b.shape)

     for(j in 1:p)
     {

       beta[j]  ~ dnorm(prior.mean, prior.tau)
       gamma[j] ~ dbern(pi[j])
       pi[j]    ~ dbeta(1, 1)
       nu[j]   <- beta[j] * gamma[j]

     }

   }

But R is throwing the following error.

Error: unexpected symbol in:
"
       time[i] ~ (dweib(shape, lambda[i]) C"

Any help regarding this will be appreciated.

Censoring in R2OpenBUGS

Thread (3 messages)