optl3ardc.m

The goal of SPID is to provide the user with tools capable to simulate, preprocess, process and clas

function [L3, Bmu, Bzeta, Bnumeffpar] = optL3ardc(Barpi),
% function [L3, Bmu, Bzeta, Bnumeffpar] = optL3ard(Barpi, Xtrain, Ytrain),

load MATgamma Bgamma
startgamma = Bgamma;

global Xtrain Ytrain, Xtr=Xtrain;
Barpi = abs(Barpi);
for i = 1:length(Barpi),
 Xtr(:,i) = Xtr(:,i)*sqrt(Barpi(i));
end

global iter_ardL3 kernelType, iter_ardL3=iter_ardL3+1;
disp(['Iteration: ', num2str(iter_ardL3)]),

N_inputs = size(Xtrain, 2);
global logKK0, logKK0=[];
[Bmu, Bzeta, Bnumeffpar, BPlikeli3, BPlikeli2, Bsloga, Bslogb] = optim_gammaBayLSSVMardr(startgamma, 1, Xtr, Ytrain, kernelType);
L3= BPlikeli2-log(Bsloga)-log(Bslogb);

Bgamma = abs(Bzeta/Bmu);

save MATgamma Bgamma
save MATmzn Bmu Bzeta Bnumeffpar