Commit | Line | Data |
---|---|---|
7b272073 BA |
1 | function[] = generateRunSaveTest_EMGLLF(n, p, m, k, mini, maxi, gamma, lambda, varargin) |
2 | ||
3 | %set defaults for optional inputs | |
4 | optargs = {200 15 10 3 5 10 1.0 0.5}; | |
5 | %replace defaults by user parameters | |
6 | optargs(1:length(varargin)) = varargin; | |
7 | [n, p, m, k, mini, maxi, gamma, lambda] = optargs{:}; | |
8 | tau = 1e-6; | |
9 | mini = int64(mini); | |
10 | maxi = int64(maxi); | |
11 | ||
12 | %Generate phiInit,piInit,... | |
13 | [phiInit,rhoInit,piInit,gamInit] = basicInitParameters(n, p, m, k); | |
14 | ||
15 | %Generate X and Y | |
16 | [X, Y, ~] = generateIOdefault(n, p, m, k); | |
17 | ||
18 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
19 | ||
20 | testFolder = 'data/'; | |
21 | mkdir(testFolder); | |
22 | delimiter = '\n'; | |
23 | ||
24 | %save inputs | |
25 | dlmwrite(strcat(testFolder,'phiInit'), reshape(phiInit,1,[]), delimiter); | |
26 | dlmwrite(strcat(testFolder,'rhoInit'), reshape(rhoInit,1,[]), delimiter); | |
27 | dlmwrite(strcat(testFolder,'piInit'), piInit, delimiter); | |
28 | dlmwrite(strcat(testFolder,'gamInit'), reshape(gamInit,1,[]), delimiter); | |
29 | dlmwrite(strcat(testFolder,'mini'), mini, delimiter); | |
30 | dlmwrite(strcat(testFolder,'maxi'), maxi, delimiter); | |
31 | dlmwrite(strcat(testFolder,'gamma'), gamma, delimiter); | |
32 | dlmwrite(strcat(testFolder,'lambda'), lambda, delimiter); | |
33 | dlmwrite(strcat(testFolder,'X'), reshape(X,1,[]), delimiter); | |
34 | dlmwrite(strcat(testFolder,'Y'), reshape(Y,1,[]), delimiter); | |
35 | dlmwrite(strcat(testFolder,'tau'), tau, delimiter); | |
36 | dlmwrite(strcat(testFolder,'dimensions'), [n,p,m,k], delimiter); | |
37 | ||
38 | [phi,rho,pi,LLF,S] = EMGLLF(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau); | |
39 | ||
40 | %save output | |
41 | dlmwrite(strcat(testFolder,'phi'), reshape(phi,1,[]), delimiter); | |
42 | dlmwrite(strcat(testFolder,'rho'), reshape(rho,1,[]), delimiter); | |
43 | dlmwrite(strcat(testFolder,'pi'), pi, delimiter); | |
44 | dlmwrite(strcat(testFolder,'LLF'), LLF, delimiter); | |
45 | dlmwrite(strcat(testFolder,'S'), reshape(S,1,[]), delimiter); | |
46 | ||
47 | end |