[r-cran-mnp] 21/51: Import Upstream version 2.3-6

[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 aff792536c53d7f299c43d79e38b7726700aeb2b
Author: Andreas Tille <tille at debian.org>
Date:   Fri Sep 8 15:54:50 2017 +0200

    Import Upstream version 2.3-6
---
 DESCRIPTION           | 6 +++---
 R/onLoad.R            | 2 +-
 R/print.summary.mnp.R | 1 +
 R/summary.mnp.R       | 5 +++--
 man/summary.mnp.Rd    | 1 +
 5 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index d76a4e4..e934fde 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: MNP
-Version: 2.3-5
-Date: 2005-12-27
+Version: 2.3-6
+Date: 2006-1-11
 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: Tue Dec 27 02:47:01 2005; kimai
+Packaged: Wed Jan 11 09:39:23 2006; kimai
diff --git a/R/onLoad.R b/R/onLoad.R
index e85275b..7422664 100644
--- a/R/onLoad.R
+++ b/R/onLoad.R
@@ -2,6 +2,6 @@
   mylib <- dirname(system.file(package = pkg))
   title <- packageDescription(pkg, lib = mylib)$Title
   ver <- packageDescription(pkg, lib = mylib)$Version
-  cat(paste(pkg, ": ", title, "\nVersion", ver, "\n", sep=""))
+  cat(paste(pkg, ": ", title, "\nVersion: ", ver, "\n", sep=""))
 }
 
diff --git a/R/print.summary.mnp.R b/R/print.summary.mnp.R
index 1c7cafc..cb937a7 100644
--- a/R/print.summary.mnp.R
+++ b/R/print.summary.mnp.R
@@ -13,6 +13,7 @@ print.summary.mnp <- function(x, digits = max(3, getOption("digits") - 3), ...)
   cat("\nBase category:", x$base)  
   cat("\nNumber of alternatives:", x$n.alt)
   cat("\nNumber of observations:", x$n.obs)
+  cat("\nNumber of estimated parameters:", x$n.param)
   cat("\nNumber of stored MCMC draws:", x$n.draws)
   cat("\n\n")
   invisible(x)
diff --git a/R/summary.mnp.R b/R/summary.mnp.R
index 4246357..a09591c 100644
--- a/R/summary.mnp.R
+++ b/R/summary.mnp.R
@@ -11,8 +11,9 @@ summary.mnp <- function(object, CI=c(2.5, 97.5),...){
                              paste(max(CI), "%", sep=""))
   rownames(param.table) <- colnames(param)
   
-  ans <- list(call=object$call, base = object$base, n.alt=p, n.obs=if(is.matrix(object$y))
-              nrow(object$y) else length(object$y), n.draws = n.draws,
+  ans <- list(call = object$call, base = object$base, n.alt=p,
+              n.obs = if(is.matrix(object$y)) nrow(object$y) else length(object$y),
+              n.param = ncol(param)-1, n.draws = n.draws,
               coef.table= if(n.cov > 1) param.table[1:n.cov,]
               else matrix(param.table[1,], nrow=1,
                           dimnames=list(rownames(param.table)[1], colnames(param.table))),
diff --git a/man/summary.mnp.Rd b/man/summary.mnp.Rd
index 9bd63cf..827d098 100644
--- a/man/summary.mnp.Rd
+++ b/man/summary.mnp.Rd
@@ -33,6 +33,7 @@
   \item{n.alt}{The total number of alternatives.}
   \item{base}{The base category used for fitting.}
   \item{n.obs}{The number of observations.}
+  \item{n.param}{The number of estimated parameters.}
   \item{n.draws}{The number of Gibbs draws used for the summary.}
   \item{coef.table}{The summary of the posterior distribution of the
     coefficients. }

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