add test folder

[valse.git] / src / test / OLD_TEST_MATLAB / generateRunSaveTest_selectiontotale.m

diff --git a/src/test/OLD_TEST_MATLAB/generateRunSaveTest_selectiontotale.m b/src/test/OLD_TEST_MATLAB/generateRunSaveTest_selectiontotale.m
new file mode 100644 (file)
index 0000000..6caee15
--- /dev/null
+++ b/src/test/OLD_TEST_MATLAB/generateRunSaveTest_selectiontotale.m
@@ -0,0 +1,49 @@
+function[] = generateRunSaveTest_selectiontotale(n, p, m, k, mini, maxi, gamma, glambda, varargin)
+
+       %set defaults for optional inputs
+       optargs = {200 15 10 3 5 10 1.0 [0.0,0.01,0.02,0.03,0.05,0.1,0.2,0.3,0.5,0.7,0.85,0.99]};
+       %replace defaults by user parameters
+       optargs(1:length(varargin)) = varargin;
+       [n, p, m, k, mini, maxi, gamma, glambda] = optargs{:};
+       tau = 1e-6;
+       seuil = 1e-15;
+       mini = int64(mini);
+       maxi = int64(maxi);
+       L = length(glambda);
+
+       %Generate phiInit,piInit,...
+       [phiInit,rhoInit,piInit,gamInit] = basicInitParameters(n, p, m, k);
+       
+       %Generate X and Y
+       [X, Y, ~] = generateIOdefault(n, p, m, k);
+
+       %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+       testFolder = 'data/';
+       mkdir(testFolder);
+       delimiter = '\n';
+
+       %save inputs
+       dlmwrite(strcat(testFolder,'phiInit'), reshape(phiInit,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'rhoInit'), reshape(rhoInit,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'piInit'), piInit, delimiter);
+       dlmwrite(strcat(testFolder,'gamInit'), reshape(gamInit,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'mini'), mini, delimiter);
+       dlmwrite(strcat(testFolder,'maxi'), maxi, delimiter);
+       dlmwrite(strcat(testFolder,'gamma'), gamma, delimiter);
+       dlmwrite(strcat(testFolder,'glambda'), glambda, delimiter);
+       dlmwrite(strcat(testFolder,'X'), reshape(X,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'Y'), reshape(Y,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'seuil'), seuil, delimiter);
+       dlmwrite(strcat(testFolder,'tau'), tau, delimiter);
+       dlmwrite(strcat(testFolder,'dimensions'), [n,p,m,k,L], delimiter);
+
+       [A1,A2,Rho,Pi] = selectiontotale(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambda,X,Y,seuil,tau);
+
+       %save output
+       dlmwrite(strcat(testFolder,'A1'), reshape(A1,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'A2'), reshape(A2,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'Rho'), reshape(Rho,1,[]), delimiter);
+       dlmwrite(strcat(testFolder,'Pi'), reshape(Pi,1,[]), delimiter);
+
+end