[Wavetiling-commits] r46 - pkg/waveTiling/R

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

Author: kdbeuf
Date: 2012-06-10 12:41:01 +0200 (Sun, 10 Jun 2012)
New Revision: 46

Modified:
   pkg/waveTiling/R/helperFunctions.R
Log:
small change in makeDesign


Modified: pkg/waveTiling/R/helperFunctions.R
===================================================================
--- pkg/waveTiling/R/helperFunctions.R	2012-06-10 10:17:11 UTC (rev 45)
+++ pkg/waveTiling/R/helperFunctions.R	2012-06-10 10:41:01 UTC (rev 46)
@@ -323,7 +323,6 @@
 		Xorig <- matrix(0,nrow=noGroups*replics,ncol=noGroups)
 		desHelmert <- contr.helmert(noGroups)
 		Xorig[,1] <- 1
-		Xorig[,2:noGroups] <- apply(desHelmert[,1:(noGroups-1)],2,rep,replics)
 		Xorig[,2:noGroups] <- apply(as.matrix(desHelmert[,1:(noGroups-1)]),2,rep,replics)
 	}
 	else if (design=="factorial")