/* PROGRAMME SAS POUR PLAN A CLASSIFICATION SIMPLE */

options nodate nonumber linesize=80 pagesize=70;
ods html file='kenton.html';

/* Cette commande va créer un fichier avec les résultats
   sous un format html; voir la dernière commande                   */

title 'Exemple de Kenton';

data kenton;
	infile 'CH16TA01.DAT';
	input Caisse Design Magasin;
        attrib Caisse label="Nombre de caisses de boîtes de céréales";
        attrib Design label="Design de la boîte";

/* Pour obtenir des diagrammes en boîtes côte-à=côte (et plusieurs 
   autres choses                                                   */

proc univariate plot;
        var Caisse; 
        by Design;
run;

/* La procédure pour obtenir l'analyse de variance de base       */

proc anova;
        class Design;
	model Caisse=Design;
        means Design / bon scheffe tukey;
        means Design / bon scheffe tukey lines;
run;

/* La procédure pour estimer les composantes de la variance
   par la méthode des moments (method=type1)                      */

proc varcomp method=type1;
        class Design;
        model Caisse=Design;
run;

/* La procédure pour estimer les composantes de la variance
   par la méthode du maximum de vraisemblance (method=ml)          */

proc varcomp method=ml;
        class Design;
        model Caisse=Design;
run;

ods html close;