[Sciviews-commits] r379 - in pkg/SciViews: . R

[noreply at r-forge.r-project.org]

Author: phgrosjean
Date: 2011-07-18 15:40:22 +0200 (Mon, 18 Jul 2011)
New Revision: 379

Modified:
   pkg/SciViews/DESCRIPTION
   pkg/SciViews/NEWS
   pkg/SciViews/R/pcomp.R
Log:
Bug fixed in pcomp (SciViews R package)

Modified: pkg/SciViews/DESCRIPTION
===================================================================
--- pkg/SciViews/DESCRIPTION	2011-06-13 20:21:58 UTC (rev 378)
+++ pkg/SciViews/DESCRIPTION	2011-07-18 13:40:22 UTC (rev 379)
@@ -5,7 +5,7 @@
 Depends: R (>= 2.6.0), stats, grDevices, graphics, MASS
 Enhances: base, stats
 Description: Functions to install SciViews additions to R, and more (various) tools
-Version: 0.9-2
+Version: 0.9-3
 Date: 2010-09-26
 Author: Philippe Grosjean
 Maintainer: Philippe Grosjean <phgrosjean at sciviews.org>

Modified: pkg/SciViews/NEWS
===================================================================
--- pkg/SciViews/NEWS	2011-06-13 20:21:58 UTC (rev 378)
+++ pkg/SciViews/NEWS	2011-07-18 13:40:22 UTC (rev 379)
@@ -1,5 +1,10 @@
 = SciViews News
 
+== SciViews version 0.9-3
+
+* A bug in svd.pca() subfunction of pcomp.default() was corrected.
+
+
 == SciViews version 0.9-2
 
 * Slight style refactoring of R code and man pages.

Modified: pkg/SciViews/R/pcomp.R
===================================================================
--- pkg/SciViews/R/pcomp.R	2011-06-13 20:21:58 UTC (rev 378)
+++ pkg/SciViews/R/pcomp.R	2011-07-18 13:40:22 UTC (rev 379)
@@ -48,11 +48,11 @@
 		names(pca$sdev) <- paste("PC", 1:length(pca$sdev), sep = "") 
 		if (isTRUE(!pca$center)) {
 			pca$center <- rep(0, length(pca$sdev))
-			names(pca$center) <- rownames(pca$rotation)
+			names(pca$center) <- colnames(pca$rotation)
 		}
 		if (isTRUE(!pca$scale)) {
 			pca$scale <- rep(1, length(pca$sdev))
-			names(pca$scale) <- rownames(pca$rotation)
+			names(pca$scale) <- colnames(pca$rotation)
 		}
 		rn <- rownames(x)
 			if (is.null(rn)) {