version 0.71.1

Oleg Nenadic · cran-robot · commit 00cc046a4c31 · 2020-01-24T05:59:53.000Z
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: ca
-Version: 0.71
+Version: 0.71.1
 Date: 2018-10-10
 Title: Simple, Multiple and Joint Correspondence Analysis
 Authors@R: c(person(given = "Michael", family = "Greenacre", role = "aut", email = "michael.greenacre@upf.edu"),
@@ -16,10 +16,7 @@ LazyLoad: yes
 LazyData: yes
 License: GPL
 URL: http://www.carme-n.org/
-Repository: CRAN
-Repository/R-Forge/Project: ca0
-Repository/R-Forge/Revision: 39
-Repository/R-Forge/DateTimeStamp: 2018-10-10 17:12:30
-Date/Publication: 2018-10-10 18:10:02 UTC
 NeedsCompilation: no
-Packaged: 2018-10-10 17:30:25 UTC; rforge
+Packaged: 2020-01-23 13:25:58 UTC; ripley
+Repository: CRAN
+Date/Publication: 2020-01-24 06:59:53 UTC
diff --git a/MD5 b/MD5
@@ -1,4 +1,4 @@
-21975713a673878b762f9898937bfffc *DESCRIPTION
+83a8ca165e01349089826b6f5cd0ec82 *DESCRIPTION
 f5daa04e0460fe0fd3f9b7c331dbdd68 *INDEX
 aec1da716bcdd1dd3aeae14f62510783 *NAMESPACE
 93e00716f883e2f7aa893feae3814f12 *NEWS
@@ -13,8 +13,8 @@ fe7ee288de1f2528f99762eef37e6bda *R/ca.r
 5d116296784df1b385eddc6107c8ab08 *R/plot.ca.r
 f0e5c9fe233917b04a8d64d847378a46 *R/plot.mjca.r
 02c88c031d0c0161fa814c29e0cda722 *R/plot3d.ca.r
-cad666f7fbb684b6fdb1c1d260ec3681 *R/print.ca.r
-84966b1a20e580506e19d29b56d5da6a *R/print.mjca.r
+c058a0d2d6dec9a3d216a01eb85b9a89 *R/print.ca.r
+5fdf5731913dbd41d984de3fd2d1587a *R/print.mjca.r
 4466d6e3b3967a28bda057a4488d49c3 *R/print.summary.ca.r
 30d56a0023c9cf71cb2a91a7faefa5aa *R/print.summary.mjca.r
 0d53e66ca9374b51d9fce0c2a6417e2a *R/subinr.r
diff --git a/R/print.ca.r b/R/print.ca.r
@@ -38,7 +38,7 @@ print.ca <- function(x, ...){
   dimnames(tmp)[[1]] <- c("Mass", "ChiDist", "Inertia", dn)
   Column.profiles <- tmp
   cat("\n Principal inertias (eigenvalues):\n")
-  print.table(Eigenvalues, width = 4)
+  print.table(Eigenvalues)#, width = 4)
   cat("\n\n Rows:\n")
   print(round(Row.profiles, 6))
   cat("\n\n Columns:\n")
diff --git a/R/print.mjca.r b/R/print.mjca.r
@@ -40,7 +40,7 @@ print.mjca <- function(x, ...){
   dimnames(tmp)[[1]] <- c("Mass", "ChiDist", "Inertia", dn)
   Column.profiles <- tmp
   cat("\n Eigenvalues:\n")
-  print.table(Eigenvalues, width = 4)
+  print.table(Eigenvalues) #, width = 4)
   cat("\n\n Columns:\n")
   print(round(Column.profiles, 6))
   }

Original file line number	Diff line number	Diff line change
`@@ -40,7 +40,7 @@ print.mjca <- function(x, ...){`
`40`	`40`	`dimnames(tmp)[[1]] <- c("Mass", "ChiDist", "Inertia", dn)`
`41`	`41`	`Column.profiles <- tmp`
`42`	`42`	`cat("\n Eigenvalues:\n")`
`43`		`- print.table(Eigenvalues, width = 4)`
	`43`	`+ print.table(Eigenvalues) #, width = 4)`
`44`	`44`	`cat("\n\n Columns:\n")`
`45`	`45`	`print(round(Column.profiles, 6))`
`46`	`46`	`}`