X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2FgenerateRunSaveTest_constructionModelesLassoRank.R;fp=src%2Ftest%2Fgenerate_test_data%2FgenerateRunSaveTest_constructionModelesLassoRank.R;h=dfb2736a699d207377062c6e6fc297e5e1cdded4;hp=09d98233541cf67a4ecabe4c9408b0354dd5e11e;hb=9ade3f1b66fa07ad9f1a3b09fc05462c783841de;hpb=c3b2c1ab166494627b3b41f309fd747e1df61aa2 diff --git a/src/test/generate_test_data/generateRunSaveTest_constructionModelesLassoRank.R b/src/test/generate_test_data/generateRunSaveTest_constructionModelesLassoRank.R index 09d9823..dfb2736 100644 --- a/src/test/generate_test_data/generateRunSaveTest_constructionModelesLassoRank.R +++ b/src/test/generate_test_data/generateRunSaveTest_constructionModelesLassoRank.R @@ -17,7 +17,8 @@ generateRunSaveTest_constructionModelesLassoRank = function(n=200, p=15, m=10, L } } #Generate X and Y - generateIOdef = generateIOdefault(n, p, m, k) + require(valse) + generateIOdef = valse:::generateIOdefault(n, p, m, k) A1 = matrix(0,p,L) for(i in 1:L){ @@ -42,4 +43,4 @@ generateRunSaveTest_constructionModelesLassoRank = function(n=200, p=15, m=10, L write.table(paste(testFolder,"phi",sep=""), construct$phi, sep=delimiter) write.table(paste(testFolder,"lvraisemblance",sep=""), construct$lvraisemblance, sep=delimiter) -} \ No newline at end of file +}