% Su 3 frigoriferi sono stati rilevati le informazioni sulla Capacità,
% Prezzo (variabili quantitative) e Prezzo, Allarme e Dispenser (variabili
% qualitative dicotomiche).
% Calcolare la matrice degli indici di similarità di Gower.
NameRows={'AEG' 'BOSCH' 'IGNIS'};
Capacita=[380; 500; 310];
Prezzo=[700; 1800; 480];
Allarme={'Yes'; 'Yes'; 'No'};
Dispenser={'No'; 'Yes'; 'No'};
Display={'No'; 'Yes'; 'No'};
Xtable=table(Capacita,Prezzo,Allarme,Dispenser,Display,'RowNames',NameRows);
% L'argomento l di GowerIndex specifica la tipologia di variabile
% 1= variabile quantitativa
% 2 = variabile qualitativa dicotomica
% 3 = variabile qualitatia politomica
typevar=[ 1 1 2 2 2];
% typevar specifica che le prime due variabili sono quantative  e le ultime
% 3 variabili sono qualitative dicotomiche
[S,Stable]=GowerIndex(Xtable,'l',typevar);

disp('Matrice degli indici di similarità di Gower')
disp(Stable)
% La coppia di frigoriferi più simile è data da AEG e IGNIS