X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2Fhelpers%2FconstructionModelesLassoRank.R;h=183a6d168fba2f98ddfc9af3421e5222cf86977b;hp=c319c614cbc65026aa1e37da41c71050f0b3a560;hb=9ade3f1b66fa07ad9f1a3b09fc05462c783841de;hpb=c3b2c1ab166494627b3b41f309fd747e1df61aa2 diff --git a/src/test/generate_test_data/helpers/constructionModelesLassoRank.R b/src/test/generate_test_data/helpers/constructionModelesLassoRank.R index c319c61..183a6d1 100644 --- a/src/test/generate_test_data/helpers/constructionModelesLassoRank.R +++ b/src/test/generate_test_data/helpers/constructionModelesLassoRank.R @@ -9,9 +9,9 @@ constructionModelesLassoRank = function(Pi,Rho,mini,maxi,X,Y,tau,A1,rangmin,rang deltaRank = rangmax - rangmin + 1 Size = deltaRank^k Rank = matrix(0, Size, k) - for(r in 1:k){ - Rank[,r] = rangmin + - } +# for(r in 1:k) { +# Rank[,r] = rangmin + <--- #FIXME: +# } phi = array(0, dim=c(p,m,k,L*Size)) lvraisemblance = matrix(0, L*Size, 2) @@ -31,4 +31,4 @@ constructionModelesLassoRank = function(Pi,Rho,mini,maxi,X,Y,tau,A1,rangmin,rang } } return(list(phi=phi, lvraisemblance = lvraisemblance)) -} \ No newline at end of file +}