X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=test%2Fgenerate_test_data%2FEMGrank.R;fp=test%2Fgenerate_test_data%2FEMGrank.R;h=c4576e494977852e3d0af3312ae02196e1798467;hp=346916b1fe3786209cbf19534ee9274657b5fdc8;hb=f72448157e2ca194959adcffced29448fbb1bb74;hpb=21f6928a1de17587da10bac81765cb433fe16581

diff --git a/test/generate_test_data/EMGrank.R b/test/generate_test_data/EMGrank.R
index 346916b..c4576e4 100644
--- a/test/generate_test_data/EMGrank.R
+++ b/test/generate_test_data/EMGrank.R
@@ -1,4 +1,5 @@
 #helper to always have matrices as arg (TODO: put this elsewhere? improve?)
+# --> Yes, we should use by-columns storage everywhere... [later!]
 matricize <- function(X)
 {
 	if (!is.matrix(X))
@@ -7,7 +8,7 @@ matricize <- function(X)
 }
 
 require(MASS)
-EMGrank = function(Pi, Rho, mini, maxi, X, Y, tau, rank)
+EMGrank_R = function(Pi, Rho, mini, maxi, X, Y, tau, rank)
 {
   #matrix dimensions
   n = dim(X)[1]