[r-cran-bayesm] 21/44: Import Upstream version 2.0-7

[Andreas Tille]

This is an automated email from the git hooks/post-receive script.

tille pushed a commit to branch master
in repository r-cran-bayesm.

commit 9755ba9592411b936e41bd7da4734a839e691ee2
Author: Andreas Tille <tille at debian.org>
Date:   Thu Sep 7 13:09:13 2017 +0200

    Import Upstream version 2.0-7
---
 DESCRIPTION    | 6 +++---
 R/clusterMix.R | 4 ++--
 R/rivGibbs.R   | 4 +++-
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 5c05bd3..6bd3441 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: bayesm
-Version: 2.0-6
-Date: 2006-01-24
+Version: 2.0-7
+Date: 2006-02-02
 Title:Bayesian Inference for Marketing/Micro-econometrics 
 Author: Peter Rossi <peter.rossi at ChicagoGsb.edu>, 
         Rob McCulloch <robert.mcculloch at ChicagoGsb.edu>.
@@ -28,4 +28,4 @@ Description: bayesm covers many important models used
   Marketing by Rossi, Allenby and McCulloch. 
 License: GPL (version 2 or later)
 URL: http://gsbwww.uchicago.edu/fac/peter.rossi/research/bsm.html
-Packaged: Wed Jan 25 10:00:33 2006; hornik
+Packaged: Fri Feb  3 22:14:33 2006; hornik
diff --git a/R/clusterMix.R b/R/clusterMix.R
index c3ebab1..20d60e6 100755
--- a/R/clusterMix.R
+++ b/R/clusterMix.R
@@ -97,7 +97,7 @@ if(!SILENT){
 Pmean=matrix(0,nrow=nobs,ncol=nobs)
 R=nrow(zdraw)
 for (r in 1:R) {
-   Pmean=Pmean+ztoSim(out$zdraw[r,])
+   Pmean=Pmean+ztoSim(zdraw[r,])
    if(!SILENT) {if(r%%100 == 0) {cat("  ",r,fill=TRUE); fsh()}}
 }
 Pmean=Pmean/R
@@ -112,7 +112,7 @@ if(!SILENT){
 }
 loss=double(R)
 for (r in 1:R){
-  loss[r]=sum(abs(Pmean-ztoSim(out$zdraw[r,]))) 
+  loss[r]=sum(abs(Pmean-ztoSim(zdraw[r,]))) 
   if(!SILENT) {if(r%%100 == 0) {cat("  ",r,fill=TRUE);fsh()}}
 }
 index=which(loss==min(loss))
diff --git a/R/rivGibbs.R b/R/rivGibbs.R
index 743eac9..92e6617 100755
--- a/R/rivGibbs.R
+++ b/R/rivGibbs.R
@@ -6,6 +6,7 @@ function(Data,Prior,Mcmc)
 #    R. McCulloch original version 2/05 
 #    p. rossi 3/05 
 #    p. rossi 1/06 -- fixed error in nins
+#    p. rossi 1/06 -- fixed def Prior settings for nu,V
 #
 # purpose: 
 #   draw from posterior for linear I.V. model
@@ -72,7 +73,8 @@ if(n != nrow(z) ) {pandterm("length(y) ne nrow(z)")}
 #
 if(missing(Prior))
    { md=c(rep(0,dimd));Ad=.01*diag(dimd); 
-     mbg=c(rep(0,(1+dimg))); Abg=.01*diag((1+dimg))}
+     mbg=c(rep(0,(1+dimg))); Abg=.01*diag((1+dimg));
+     nu=3; V=diag(2)}
 else
    {
     if(is.null(Prior$md)) {md=c(rep(0,dimd))} 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/r-cran-bayesm.git