projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update plot_valse and add it to main.R
[valse.git]
/
pkg
/
R
/
EMGrank.R
diff --git
a/pkg/R/EMGrank.R
b/pkg/R/EMGrank.R
index
e30b605
..
0e68cb4
100644
(file)
--- a/
pkg/R/EMGrank.R
+++ b/
pkg/R/EMGrank.R
@@
-22,7
+22,7
@@
EMGrank <- function(Pi, Rho, mini, maxi, X, Y, tau, rank, fast=TRUE)
if (!fast)
{
# Function in R
if (!fast)
{
# Function in R
- return (EMGrank_R(Pi, Rho, mini, maxi, X, Y, tau, rank))
+ return (
.
EMGrank_R(Pi, Rho, mini, maxi, X, Y, tau, rank))
}
# Function in C
}
# Function in C
@@
-47,7
+47,7
@@
matricize <- function(X)
}
# R version - slow but easy to read
}
# R version - slow but easy to read
-EMGrank_R = 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]