TP3 : Manipulation de données

Options formdlim="*";
DATA tab1;
   INPUT X Y;
   CARDS;
0 1
2 2
4 3
;
RUN;
PROC PRINT;
RUN;
DATA tab2;
   INPUT X Z $;
   CARDS;
6 a
8 b
10 c
;
RUN;
PROC PRINT;
RUN;
DATA concat;
SET tab1 tab2;
RUN;
PROC PRINT;
RUN;

Options formdlim="*";
DATA tab1;
   INPUT X Y;
   CARDS;
0 1
2 2
4 3
;
RUN;
PROC PRINT;
RUN;
DATA tab2;
   INPUT x Z $;
   CARDS;
6 a
8 b
10 c
;
RUN;
PROC PRINT;
RUN;
DATA tab3;
   INPUT y Z $;
   CARDS;
-1 d
-2 e
-3 f
;
RUN;
PROC PRINT;
RUN;
DATA concat;
SET tab1 tab2 tab3;
RUN;
PROC PRINT;
RUN;

Options formdlim="*";
DATA tab1;
   INPUT X Y;
   CARDS;
0 1
2 2
4 3
;
RUN;
PROC PRINT;
RUN;
DATA tab2;
   INPUT x Z $;
   CARDS;
6 a
8 b
10 c
;
RUN;
PROC PRINT;
RUN;
DATA tab3;
   INPUT y Z $;
   CARDS;
-1 d
-2 e
-3 f
;
RUN;
PROC PRINT;
RUN;
DATA concat;
SET tab1 tab2;
RUN;
DATA concat2;
SET concat tab3;
RUN;
PROC PRINT;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA bruns;
    set enfants;
    WHERE cheveux=1;
RUN;
PROC PRINT;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA bruns_homme;
      set enfants;
      WHERE cheveux=1 and genre='M';
RUN;
PROC PRINT;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA bruns_initial;
      set enfants;
      WHERE cheveux=1 and prenom<'C';
RUN;
PROC PRINT;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA filles;
      set enfants;
      IF genre='M' then DELETE;
RUN;
PROC PRINT;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA garcons chatains;
   set enfants;
   IF genre='M' THEN OUTPUT garcons;
   IF cheveux=2 THEN OUTPUT chatains;
RUN;
PROC PRINT data=garcons;
RUN;
PROC PRINT data=chatains;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA garcons filles;
   set enfants;
   SELECT(genre);
    WHEN('F') OUTPUT filles;
   OTHERWISE OUTPUT garcons;
   END;
RUN;
PROC PRINT data=garcons;
RUN;
PROC PRINT data=filles;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA petits moyens grands;
   set enfants;
   SELECT;
    WHEN(taille<150) OUTPUT petits;
    WHEN(taille<165) OUTPUT moyens;
    OTHERWISE OUTPUT grands;
   END;
RUN;
PROC PRINT data=petits;
RUN;
PROC PRINT data=moyens;
RUN;
PROC PRINT data=grands;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA prenomgenre;
   set enfants;
   KEEP prenom genre;
RUN;
PROC PRINT data=enfants (KEEP= prenom genre);
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA prenomgenre;
   set enfants;
   DROP age cheveux;
RUN;
PROC PRINT data=enfants (DROP= age cheveux);
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 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;
DATA fusion;
   MERGE garcons tab2;
RUN;
PROC PRINT data=garcons;
RUN;
PROC PRINT data=tab2;
RUN;
PROC PRINT data=fusion;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 148 45.9 3
MATHIAS 16 M 180 66.3 2
;
RUN;
DATA garcons filles;
  set enfants;
  SELECT(genre);
    WHEN('F') OUTPUT filles;
    OTHERWISE OUTPUT garcons;
  END;
RUN;
DATA fusion;
   MERGE garcons filles;
RUN;
PROC PRINT data=garcons;
RUN;
PROC PRINT data=filles;
RUN;
PROC PRINT data=fusion;
RUN;

DATA enfants;
   INPUT prenom $ :12. 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 148 45.9 3
MATHIAS 16 M 180 66.3 2
;
RUN;
DATA garcons filles;
  set enfants;
  SELECT(genre);
    WHEN('F') OUTPUT filles;
    OTHERWISE OUTPUT garcons;
  END;
RUN;
DATA fusion;
   MERGE filles garcons;
RUN;
PROC PRINT data=garcons;
RUN;
PROC PRINT data=filles;
RUN;
PROC PRINT data=fusion;
RUN;