[r-cran-mnp] 30/51: Import Upstream version 2.4-2

[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-mnp.

commit 9c53342d8f7cf105e21be7404239100e2130804a
Author: Andreas Tille <tille at debian.org>
Date:   Fri Sep 8 15:54:54 2017 +0200

    Import Upstream version 2.4-2
---
 DESCRIPTION        | 6 +++---
 R/predict.mnp.R    | 4 ++--
 man/predict.mnp.Rd | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 05ef015..925d80c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: MNP
-Version: 2.4-1
-Date: 2006-10-05
+Version: 2.4-2
+Date: 2006-10-17
 Title: R Package for Fitting the Multinomial Probit Model
 Author: Kosuke Imai <kimai at princeton.edu>, 
         David A. van Dyk <dvd at uci.edu>. 
@@ -24,4 +24,4 @@ LazyLoad: yes
 LazyData: yes
 License: GPL (version 2 or later)
 URL: http://imai.princeton.edu/research/MNP.html
-Packaged: Thu Oct  5 19:22:35 2006; kimai
+Packaged: Tue Oct 17 20:57:21 2006; kimai
diff --git a/R/predict.mnp.R b/R/predict.mnp.R
index 227d055..2f17ff5 100644
--- a/R/predict.mnp.R
+++ b/R/predict.mnp.R
@@ -52,7 +52,7 @@ predict.mnp <- function(object, newdata = NULL, newdraw = NULL, moredraw = 1,
   Sigma <- cov.mnp(object)
   for (i in 1:n.draws) {
     for (j in 1:n.obs) 
-      W[,j,i,] <- matrix(x[j,], ncol=n.cov) %*% matrix(coef[i,]) +
+      W[,j,i,] <- c(matrix(x[j,], ncol=n.cov) %*% matrix(coef[i,], ncol = 1)) +
         mvrnorm(moredraw, mu = rep(0, p-1), Sigma = Sigma[,,i])
     if (i == inc*tmp & verbose) {
       cat("", inc*10, "percent done.\n")
@@ -68,7 +68,7 @@ predict.mnp <- function(object, newdata = NULL, newdraw = NULL, moredraw = 1,
   ## computing Y
   Y <- array(NA, dim = c(n.obs, n.draws, moredraw),
              dimnames=list(NULL, 1:n.draws, 1:moredraw))
-  O <- array(NA, dim=c(p, n.obs, n.draws, 1:moredraw),
+  O <- array(NA, dim=c(p, n.obs, n.draws, moredraw),
              dimnames=list(alt, NULL, 1:n.draws, 1:moredraw))
   for (i in 1:n.obs) 
     for (j in 1:n.draws) {
diff --git a/man/predict.mnp.Rd b/man/predict.mnp.Rd
index 58ad032..6c5f108 100644
--- a/man/predict.mnp.Rd
+++ b/man/predict.mnp.Rd
@@ -50,7 +50,7 @@
     predictive distributions are printed on the screen. The default is
     \code{FALSE}.
   }
-  \item{...}{further arguments passed to or from other methods.}
+  \item{...}{additional arguments passed to other methods.}
 }
 
 \details{The posterior predictive values are computed using the

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