%exercice 3
close all force; %cette commande force la fermeture de toutes les fenêtres graphiques
%y compris celles issues de l'anova.
clear all;

disp('Ouverture du fichier de données...');
load data_exercice3

%on va ranger dans ces deux matrices les utilitées et les importances pour
%chaque participant
utilites=zeros(25,30);
importances=zeros(8,30);
%indices inférieur et supérieur des niveaux correspondant à chaque facteur
%dans les grands vecteurs de paramètre (1 = constante du modèle);
numinf=[2 5 8 11 13 16 19 23];
numsup=[4 7 10 12 15 18 22 25];

%calcul des 30 modèles individuels et stockage des utilites et importances
%individuelles
disp('Calcul des modèles individuels...');
for n=1:30
    %  à compléter
    close all force
end
%graphe des coefficients de détermination
figure;plot(Rsquared,'k*-');grid on;xlabel('participant');ylabel('coeff. determ.');
%graphe des utilités moyennes
utilites_moyennes=mean(utilites,2);
figure;
for i=1:8
    plot([numinf(i):numsup(i)],utilites_moyennes(numinf(i):numsup(i)),'k*-');hold on;
end

%boxplot des importances
figure;
boxplot(importances',varnames);ylabel('importances');xlabel('facteurs');
%on enlève les sujets pour lesquels R2<0.7
%   A Completer
%classification des participants
disp('Classification des participants...');
%   A completer
%coupure de l'arbre : utiliser la commande cluster, paramètre 'maxclust'
nbre_classes=2;
c = % A compléter
%boxplots des importances pour chaque classe
figure;
for i=1:nbre_classes
    subplot(nbre_classes,1,i);
    %  A compléter
end
%tracé des utilites moyennes calculées pour chaque groupe
figure;
symbole={'k*-','ro-','bd-'};
% A compléter