[R] About: Error in FUN(X[[1]], ...) : symbol print-name too long

[Uwe Ligges]

gsmatos1 wrote:

> Hi, 
> 
> I´m trying to use the Win2BUGS package from R and I have a similar problem 

R2WinBUGS???


> that reurns with the message: 
> 
> Error in FUN(X[[1]], ...) : symbol print-name too long 
> 
> But, there is no stray ` character in the file ( Sugestions given by: Duncan 
> Temple Lang <duncan> 
> Date: Mon, 26 Sep 2005 07:31:08 -0700 ) 
> 
> The progam in R is: 
> 
> library(R2WinBUGS) 
> library(rbugs) 

Hmm, mixing these two packages might not be a good idea...


> dat <- 
> list(x=c(49,48,50,44,54,56,48,48,51,51,50,53,51,50,51,54,50,53,50,49,51,47,53,50,49,55,53,48,54,46), 
> y=c(50,49,57,52,47,52,58,45,55,54,51,54,56,53,52,47,51,54,50,47,46,44,54,55,52,57,52,48,48,51)) 
> 
> dat  <- format4Bugs(dat, digits = 0) 

What happens if you omit the line above?

Anyway, I can take closer look, but not within the next 24 hours ...

Uwe Ligges


> parm <- c("lbda") 
> 
> bugs(dat, inits=list(NULL), parm, "d2.bug", 
> n.chains = 1, n.iter = 5000, n.burnin = floor(n.iter/2), 
> n.thin = max(1, floor(n.chains * (n.iter - n.burnin)/1000)), 
> bin = (n.iter - n.burnin) / n.thin, 
> debug = TRUE, DIC = TRUE, digits = 5, codaPkg = FALSE, 
> bugs.directory = "C:/WinBUGS14/", 
> working.directory = NULL, clearWD = FALSE) 
> 
> 	The objective of the program is to compare means of two independent samples 
> that results 
> 	in Beherens-Fisher posterior and in the model.file of WinBUGS "d2.bug" 
> there is the following codes: 
> 
>   model 
> { 
>    for( i in 1 : 30 ) { 
>       x[i] ~ dnorm(mu1,sig1) 
>    } 
>    for( i in 1 : 30 ) { 
>       y[i] ~ dnorm(mu2,sig2) 
>    } 
>    mu1 ~ dnorm(50,1.0E-6) 
>    sig1 ~ dgamma(0.001,0.001) 
>    mu2 ~ dnorm(50,1.0E-6) 
>    sig2 ~ dgamma(0.001,0.001) 
>    lbda <- mu1 - mu2 
> } 
> 
>   I´m a new user of WinBUGS and if someone detect error in the model codes 
> too, I´m grateful. 
> 
> 	Thanks for help! 
> 	Gilberto Matos. 
> 
> 
> ------------------------------------------------------------------------
> 
> model
> {
>    for( i in 1 : 30 ) {
>       x[i] ~ dnorm(mu1,sig1)
>    }
>    for( i in 1 : 30 ) {
>       y[i] ~ dnorm(mu2,sig2)
>    }
>    mu1 ~ dnorm(50,1.0E-6)
>    sig1 ~ dgamma(0.001,0.001)
>    mu2 ~ dnorm(50,1.0E-6)
>    sig2 ~ dgamma(0.001,0.001)
>    lbda <- mu1 - mu2
> }
> 
> 
> ------------------------------------------------------------------------
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html