projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
no need to source self code in a package: function already loaded
[valse.git]
/
test
/
generate_test_data
/
EMGrank.R
diff --git
a/test/generate_test_data/EMGrank.R
b/test/generate_test_data/EMGrank.R
index
346916b
..
c4576e4
100644
(file)
--- 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?)
#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))
matricize <- function(X)
{
if (!is.matrix(X))
@@
-7,7
+8,7
@@
matricize <- function(X)
}
require(MASS)
}
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]
{
#matrix dimensions
n = dim(X)[1]