Pratique de Sas Windows ...9.3 Volume 2 - Ined

3.7.2.2 Retravailler l’arbre en GTL pour tracer sa décision de coupure
Le chercheur au vu des résultats statistiques décide en général de tracer une coupure pour signaler les classes
retenues. Ce tracé peut être réalisé très simplement sur un tracé SGE (voir 3.3.1) par l’apposition directe d’une
ligne droite. Cependant, si nous avions à le faire en GTL, il nous faut à nouveau récupérer le code caché de la
sortie ODS graphique, en comprendre la structure bien plus complexe que les autres et arriver à le modifier.
Je vais donc chercher dans le magasin/store le code GTL de l’objet dendrogram et j’y découvre que le tracé du
dendrogramme est un tracé spécifique et que nous avons un certain nombre de variable dynamiques qui ne nous
disent rien, de prime abord.
Première étape, je enrichis donc mon/ce code avec des instructions entrytitle pour visualiser celles-ci en les
plaçant juste avant le layout. Et je resoumets la proc cluster en ne demandant que le graphique et capturant le
data object lié à la production du graphique.
Auparavent comme je ne suis plus sûr de mon environnement ods, je soumets (voir V1_p125)
ods path reset; ods path show;
Ceci pour être sûr d’écrire ce template temporaire dans l’entrepôt Sasuser.templat.
title ;
proc template;
define statgraph Stat.Cluster.Graphics.Dendrogram;
notes "Dendrogram";
dynamic dh dw orient xlabel ylabel hvar xr yr;
begingraph / designheight=dh designwidth=dw;
entrytitle " dh: " dh " dw: " dw " orient: " orient;
entrytitle " xlabel: " xlabel " ylabel: " ylabel;
entrytitle " hvar: " hvar " xr: " yr " yr: " yr;
layout overlay / xaxisopts=(label=XLABEL reverse=XR)
yaxisopts=(label =YLABEL reverse=YR
discreteopts=(tickvaluefitpolicy=none));
dendrogram nodeid=NAME parentid=PARENT clusterheight=HVAR /
orient=ORIENT;
endlayout;
endgraph;
end;
run;
ods select dendrogram; ods output dendrogram="dendro";
title2 'Using METHOD=WARD';
proc cluster data=r2esobs (TYPE=data) method=ward pseudo;
id name;
run;
ods select all; ods output close;
179 INED Service Informatique Wielki