function to write bugs model (copied from R2WinBUGS)
write.model(model, con = "model.bug", digits = 5)write text lines to a connection; same as writeLines()
R / S-PLUS function containing the BUGS model in the BUGS model language, for minor differences see Section Details.
passed to writeLines which actually writes the model file
number of significant digits used for WinBUGS input, see formatC