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

diff --git a/src/test/generate_test_data/generateRunSaveTest_selectiontotale.R b/src/test/generate_test_data/generateRunSaveTest_selectiontotale.R
index b366ec9..adfe26c 100644
--- a/src/test/generate_test_data/generateRunSaveTest_selectiontotale.R
+++ b/src/test/generate_test_data/generateRunSaveTest_selectiontotale.R
@@ -3,11 +3,13 @@ generateRunSaveTest_selectiontotale= function(n=200, p=15, m=10, k=3, mini=5, ma
   dir.create(testFolder, showWarnings=FALSE, mode="0755")
   delimiter = " "
   
+	require(valse)
+
   #Generate phiInit,piInit,...
-  params = basicInitParameters(n, p, m, k)
+  params = valse:::basic_Init_Parameters(n, p, m, k)
   
   #Generate X and Y
-  generateIOdef = generateIOdefault(n, p, m, k)
+  generateIOdef = valse:::generateIOdefault(n, p, m, k)
   
   #save inputs
   write.table(paste(testFolder,"phiInit",sep=""), params$phiInit, sep=delimiter)