[Bugs-r-devel] SF.net SVN: bugs-r: [75] trunk/R2WinBUGS/R

[<li...@us...>]

Revision: 75
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=75&view=rev
Author:   ligges
Date:     2007-10-04 03:11:12 -0700 (Thu, 04 Oct 2007)

Log Message:
-----------
bugfix for not dropping dimensions in the matrix object sims

Modified Paths:
--------------
    trunk/R2WinBUGS/R/as.bugs.array.R
    trunk/R2WinBUGS/R/bugs.sims.R

Modified: trunk/R2WinBUGS/R/as.bugs.array.R
===================================================================
--- trunk/R2WinBUGS/R/as.bugs.array.R	2007-09-25 11:33:02 UTC (rev 74)
+++ trunk/R2WinBUGS/R/as.bugs.array.R	2007-10-04 10:11:12 UTC (rev 75)
@@ -87,7 +87,7 @@
       }
     }
   }
-  sims <- sims[sample(n.sims), ]
+  sims <- sims[sample(n.sims), , drop = FALSE]
   sims.list <- summary.mean <- summary.sd <- summary.median <- vector(n.roots,
     mode = "list")
   names(sims.list) <- names(summary.mean) <- names(summary.sd) <- names(summary.median) <- root.short

Modified: trunk/R2WinBUGS/R/bugs.sims.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.sims.R	2007-09-25 11:33:02 UTC (rev 74)
+++ trunk/R2WinBUGS/R/bugs.sims.R	2007-10-04 10:11:12 UTC (rev 75)
@@ -92,7 +92,7 @@
            rev(n.indexes.short[[j]])), dimension.short[j]:1)
     }
   }
-  sims <- sims [sample(n.sims),]    # scramble (for convenience in analysis)
+  sims <- sims [sample(n.sims), , drop = FALSE]    # scramble (for convenience in analysis)
   sims.list <- summary.mean <- summary.sd <-  summary.median <- vector(n.roots, mode = "list")
   names(sims.list) <- names(summary.mean) <- names(summary.sd) <- names(summary.median) <- root.short
   for (j in 1:n.roots){


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.