diff --git a/ChangeLog b/ChangeLog index 304522c..fdd87df 100755 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-10-09 (0.3-5) Jun Yan + + * changed check '(is.null(bugs))' to '(length(bugs) == 0)' in rbugs, + as pointed out by Simon Bonner . + 2006-03-28 (0.3-4) Jun Yan * added random number seed as an option to rbugs and diff --git a/DESCRIPTION b/DESCRIPTION index 56d05c5..ffe568b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: rbugs Title: Fusing R and OpenBugs -Date: 2006-03-28 -Version: 0.3-4 +Date: 2006-10-10 +Version: 0.3-5 Author: Jun Yan (with part of the code modified from bugs.R, http://www.stat.columbia.edu/~gelman/bugsR/, @@ -11,4 +11,4 @@ Description: Functions to prepare files needed for running BUGS with OpenBugs is emphasized. Maintainer: Jun Yan License: GPL 2.0 or later -Packaged: Tue Mar 28 12:45:07 2006; jyan +Packaged: Mon Oct 9 22:38:08 2006; jyan diff --git a/R/rbugs.R b/R/rbugs.R index a2daeec..c352297 100644 --- a/R/rbugs.R +++ b/R/rbugs.R @@ -45,7 +45,7 @@ rbugs <- function(data, inits, paramSet, model, ## how to check the existence of WinBUGS??? } else { ## use linbugs! - if (is.null(bugs)) bugs <- system("which linbugs", TRUE) + if (length(bugs) == 0) bugs <- system("which linbugs", TRUE) if (length(bugs) == 0) stop(paste("BUGS executable", bugs, "does not exists.")) } diff --git a/inst/docs/rbugs.pdf b/inst/docs/rnews_rbugs.pdf similarity index 100% rename from inst/docs/rbugs.pdf rename to inst/docs/rnews_rbugs.pdf