X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FEMGLLF.R;h=1739204fc4b790a42d4ec3cf3a7752bc998c1f87;hp=0158914d6d8313795aafddff3b8e63d1906b1b1f;hb=a3105972158da4773b33d41e1ead65a942c15f80;hpb=aa480ac1fef50618978307a4df2cf9da1e285abc

diff --git a/pkg/R/EMGLLF.R b/pkg/R/EMGLLF.R
index 0158914..1739204 100644
--- a/pkg/R/EMGLLF.R
+++ b/pkg/R/EMGLLF.R
@@ -28,7 +28,7 @@ EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
 	if (!fast)
 	{
 		# Function in R
-		return (EMGLLF_R(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau))
+		return (.EMGLLF_R(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau))
 	}
 
 	# Function in C
@@ -45,7 +45,7 @@ EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
 }
 
 # R version - slow but easy to read
-EMGLLF_R = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau)
+.EMGLLF_R = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau)
 {
 	# Matrix dimensions
 	n = dim(X)[1]