X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2FgenerateRunSaveTest_selectiontotale.m;fp=src%2Ftest%2Fgenerate_test_data%2FgenerateRunSaveTest_selectiontotale.m;h=0000000000000000000000000000000000000000;hb=ef67d338c7f28ba041abe40ca9a8ab69f8365a90;hp=89852478fcba2a6cd978660beb13ff99c095da29;hpb=c3bc47052f3ccb659659c59a82e9a99ea842398d;p=valse.git diff --git a/src/test/generate_test_data/generateRunSaveTest_selectiontotale.m b/src/test/generate_test_data/generateRunSaveTest_selectiontotale.m deleted file mode 100644 index 8985247..0000000 --- a/src/test/generate_test_data/generateRunSaveTest_selectiontotale.m +++ /dev/null @@ -1,49 +0,0 @@ -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 = ' '; - - %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