optl3ardr_lin.m

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

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

load MATgamma Bgamma
startgamma = Bgamma;

Barpi = abs(Barpi);
for i = 1:length(Barpi),
Xtrain(:,i) = Xtrain(:,i)*Barpi(i);
end

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

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

Bgamma = abs(Bzeta/Bmu);

save MATgamma Bgamma
save MATmzn Bmu Bzeta Bnumeffpar