src/test/OLD_TEST_MATLAB/generateRunSaveTest_EMGLLF.m

   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