/*--------------------------------------------------------------
  |  DATA:  Ogive = measure of failure of diamond ground metal part|
  |                 to be round                                    |
  |         Material = kind of metal                               |
  |         Group  =  day grinding was done (5 parts/day)          |
  |         Order = order in which this part was ground (1st, 2nd  |
  |                  ..., 5th of day)                              |
  |                                                                |
  |  goal: graph the data.                                         |
  |                                                                |
   --------------------------------------------------------------*/
                            /*
data a; input material $ 1-20 ogive group order;
cards;
Germanium                 1.3798                 1                     1
Aluminum                  -0.3376                1                     2
Copper              -0.2132              1                     3
Brass                 0.6537             1                     4
Elect. Nickel        -0.5149             1                     5
Brass                -0.3994             2                     1
Copper              -0.2032              2                     2
Germanium                 0.9961                 2                     3
Elect. Nickel        -0.4973             2                     4
Aluminum                  -0.7572                2                     5
Elect. Nickel         0.2272             3                     1
Germanium                 1.4524                 3                     2
Aluminum                   0.5359                3                     3
Copper              -0.8791              3                     4
Brass                 0.1188             3                     5
Aluminum                  -0.0856                4                     1
Brass                -0.8998             4                     2
Elect. Nickel        -0.5232             4                     3
Germanium                 0.9228                 4                     4
Copper              -2.1696              4                     5
Copper              -1.7398              5                     1
Elect. Nickel           -0.2709          5                     2
Brass                -0.2825             5                     3
Aluminum                  -0.3244                5                     4
Germanium                 1.5003                 5                     5
    ;
proc summary; var ogive;
  class order material group;
  output out=out1 mean=mnogive;
  data next;  length cv $ 10 sh $ 10;
      set out1;
  if _type_ in (1,4,7);  sh='balloon';
  if _type_=1 then  order=0 and cv='green'; else
  if _type_=4 then group=0 and cv='green';

    if group*order ne 0 then do;
  if substr(material,1,1)='A' then do;  cv='red'; sh='prism'; end;
  if substr(material,1,1)='B' then do;  cv='blue';sh='prism'; end;
  if substr(material,1,1)='C' then do;  cv='cyan'; sh='prism';  end;
  if substr(material,1,1)='E' then do ; cv='pink'; sh='prism'; end;
  if substr(material,1,1)='G' then do;  cv='white'; sh='prism';
   end; end;
     proc print;          */
  proc g3d; scatter order*group=mnogive/shape=sh color=cv
     xticknum=6 yticknum=6;
run;