TP2 : Lecture et présentation des données

Options formdlim='*';
/*lecture de données organisées en colonnes*/
title1 'lecture données NZL';
DATA pays;
    INPUT pays $ 1-12 an va vb;
    CARDS;
NEW ZEALAND 1950 1914 80.9
NEW ZEALAND 1951 1960 72.5
NEW ZEALAND 1952 2006 67.9
NEW ZEALAND 1953 2051 68.5
NEW ZEALAND 1954 2097 77.4
NEW ZEALAND 1955 2143 73.3
NEW ZEALAND 1956 2190 72.0
NEW ZEALAND 1957 2238 74.1
NEW ZEALAND 1958 2285 74.0
NEW ZEALAND 1959 2332 74.0
NEW ZEALAND 1960 2380 81.5
;
PROC PRINT;
RUN;

/*lecture de données organisées en colonnes*/
title1 'europe stats';
DATA europestats;
   INPUT pays $ :12. genre $ nb typ val;
   CARDS;
Irlande Femmes 598 Agriculture 17.5
Irlande Femmes 598 Industrie 17.2
Irlande Femmes 598 Services 79.3
Irlande Hommes 931 Agriculture 15.6
Irlande Hommes 931 Industrie 35.8
Luxembourg Femmes 56 Agriculture 1.2
Luxembourg Femmes 56 Industrie 6.6
Luxembourg Femmes 56 Services 92.1
Luxembourg Hommes 111 Agriculture 3
Luxembourg Hommes 111 Industrie 33.3
;
PROC PRINT;
RUN;

/*Analyse des données appart*/
title1 'donnees appart';
DATA appart;
   INPUT nom $ :10. temp 2. hydr 2. aire 3.1;
   CARDS;
Salon 2041186
Cuisine 2146115
Chambre 1943108
SalleDeBain 2258098
Entree 204586
;
RUN;
PROC PRINT;
RUN;

/*Analyse des données appart*/
title1 'donnees appart';
DATA appart;
   INPUT nom $ :10. temp 2. hydr 2. aire 4.1;
   CARDS;
Salon 204118.6
Cuisine 214611.5
Chambre 194310.8
SalleDeBain 225809.8
Entree 20458.6
;
RUN;
PROC PRINT;
RUN;

/*Lecture sur une seule ligne*/
title1 'notes une ligne';
DATA notes;
   INPUT note1 note2 @@;
   CARDS;
12 15 16 08 11 09
19
18 06
04
;
RUN;
PROC PRINT;
RUN;

/*Mettre des labels*/
title1 'notes sur une ligne avec labels';
DATA notes;
   INPUT note1 note2 @@;
   CARDS;
12 15 16 08 11 09
19
18 06
04
;
RUN;
PROC PRINT label;
label note1='note du premier examen' note2='note du deuxieme examen';
RUN;

/*Utilisation de format pour écriture*/
title1 'format pour le genre';
PROC FORMAT;
   value genref 1='masculin' 2='feminin';
RUN;
DATA donnees;
   INPUT genre @@;
   CARDS;
1 2 2 2 1 2 1 2 1 2 1 2
;
RUN;
PROC PRINT;
   format genre genref.;
RUN;

/*Utilisation de format pour écriture*/
title1 'format pour les metiers';
PROC FORMAT;
   value $ typef A='agriculture' I='industrie' S='services';
RUN;
DATA donnees;
   INPUT pays $ :12. genre $ nb typ $ val;
   CARDS;
Irlande Femmes 598 A 17.5
Irlande Femmes 598 I 17.2
Irlande Femmes 598 S 79.3
Irlande Hommes 931 A 15.6
Irlande Hommes 931 I 35.8
Luxembourg Femmes 56 A 1.2
Luxembourg Femmes 56 I 6.6
Luxembourg Femmes 56 S 92.1
Luxembourg Hommes 111 A 3
Luxembourg Hommes 111 I 33.3
;
RUN;
PROC PRINT;
   format typ $typef.;
RUN;

/*Trier un tableau*/
title1 'ranger les enfants par taille';
PROC FORMAT;
   value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
   INPUT prenom $ :10. age genre $ taille poids cheveux;
   CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC SORT;
by taille;
RUN;
PROC PRINT;
   format cheveux cheveuxf.;
RUN;

/*Trier un tableau*/
title1 'ranger les enfants par cheveux et taille';
PROC FORMAT;
   value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
   INPUT prenom $ :10. age genre $ taille poids cheveux;
   CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC SORT;
by cheveux taille;
RUN;
PROC PRINT;
   format cheveux cheveuxf.;
RUN;

/*Trier un tableau*/
title1 'ranger les enfants par cheveux et taille';
PROC FORMAT;
   value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
   INPUT prenom $ :10. age genre $ taille poids cheveux;
   CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC PRINT;
   format cheveux cheveuxf.;
  by genre;
RUN;

/*Histogramme (GCHART)*/
title1 'histogramme des poids enfants';
PROC FORMAT;
  value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
  INPUT prenom $ :10. age genre $ taille poids cheveux;
  CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC GCHART;
vbar poids;
RUN;
PROC PRINT;
  format cheveux cheveuxf.;
RUN;

/*Histogramme (GCHART)*/
title1 'camembert des cheveux (discret) enfants';
PROC FORMAT;
  value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
  INPUT prenom $ :10. age genre $ taille poids cheveux;
  CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC GCHART;
  format cheveux cheveuxf.;
  pie cheveux/discrete value=inside slice=outside;
RUN;

/*tracé de fonctions*/
title1 'evolution poids/taille enfants';
PROC FORMAT;
  value cheveuxf 1='brun' 2='chatain' 3='blond';
RUN;
DATA enfants;
  INPUT prenom $ :10. age genre $ taille poids cheveux;
  CARDS;
ANDREE 13 F 140 38.2 1
BARBARA 13 F 161 44.3 2
BERNADETTE 14 F 155 46.1 3
GAETANE 12 F 148 38.2 3
JEANNE 15 F 155 50.5 1
MARTINE 11 F 123 22.4 2
ODILE 14 F 160 40.4 1
SOLANGE 12 F 140 34.7 3
VALENTINE 15 F 165 50.5 2
ANTOINE 14 M 172 50.5 2
HENRI 13 M 155 38.1 2
PATRICK 12 M 160 57.3 1
THOMAS 11 M 142 39.3 2
BRUNO 14 M 157 46.1 1
FRANCOIS 12 M 142 37.1 1
JEAN 12 M 148 45.9 3
MATHIAS 16 M 180 66.3 2
PHILIPPE 15 M 167 60 1
XAVIER 15 M 165 50.5 1
;
RUN;
PROC PRINT;
  format cheveux cheveuxf.;
RUN;
PROC GPLOT;
  format cheveux cheveuxf.;
  plot poids*taille;
RUN;