X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2FgenerateRunSaveTest_EMGLLF.R;h=2c2dc2a55d6186b6e8136749c75b77e9bf77657d;hp=60ac6c57548453042a8dc57368503e8bd45c41a8;hb=9ade3f1b66fa07ad9f1a3b09fc05462c783841de;hpb=c3b2c1ab166494627b3b41f309fd747e1df61aa2

diff --git a/src/test/generate_test_data/generateRunSaveTest_EMGLLF.R b/src/test/generate_test_data/generateRunSaveTest_EMGLLF.R
index 60ac6c5..2c2dc2a 100644
--- a/src/test/generate_test_data/generateRunSaveTest_EMGLLF.R
+++ b/src/test/generate_test_data/generateRunSaveTest_EMGLLF.R
@@ -6,7 +6,8 @@ generateRunSaveTest_EMGLLF = function(n=200, p=15, m=10, k=3, mini=5, maxi=10,
 	delimiter = " "
 
 	#save inputs
-	params = basicInitParameters(n, p, m, k)
+	require(valse)
+	params = valse:::basic_Init_Parameters(n, p, m, k)
 	io = generateIOdefault(n, p, m, k)
 	write.table(paste(testFolder,"phiInit",sep=""), params$phiInit, sep=delimiter);
 	write.table(paste(testFolder,"rhoInit",sep=""), params$rhoInit, sep=delimiter);