X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGrank.R;h=0e68cb4ecdf4dd9f9270557823d76a3875a7f72e;hp=e30b605134d79b0ced43c3f80c2622e28b5a3aad;hb=a3105972158da4773b33d41e1ead65a942c15f80;hpb=aa480ac1fef50618978307a4df2cf9da1e285abc

diff --git a/pkg/R/EMGrank.R b/pkg/R/EMGrank.R
index e30b605..0e68cb4 100644
--- 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
-		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
@@ -47,7 +47,7 @@ matricize <- function(X)
 }
 
 # 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]