PROC FORMAT;
  VALUE $typfmt "cat"="Catamaran"
      "sch"="Schooner"
        "yac"="Yacht";
run;
PROC FORMAT;
  VALUE $locfmt "sail"="Sail"
      "power"="Power";
run;
DATA boats;
	  INFILE "/home/grego1/STAT 540/boatdata.txt";
      INPUT Port $ 14-20
            Locomotion $ 22-26 Type $ 28-30
            Price 32-36;
        FORMAT TYPE $typfmt. locomotion $locfmt.;
run;
*Table of mean Price for each combination of class variables Locomotion and Type;
PROC TABULATE DATA = boats FORMAT=DOLLAR9.2;
  CLASS Locomotion Type;
  VAR Price;
*Column statement actually specifies two-way summary stats for mean price;
  TABLE Locomotion,   
      MEAN=Locomotion*Type*Price;
*The single comma separates the row variable Locomotion from the column cross-classification of mean price by Locomotion and Type;
RUN;

/* Add features and improve headers */
PROC TABULATE DATA = boats FORMAT=DOLLAR9.2;
  CLASS Locomotion Type;
  VAR Price;
*The first use of '' suppresses header for TYPE of Locomotion;
*The second use of '' supresses Locomotion header;
*The third use of '' supresses Price header;
*The fourth use of '' supresses Type header for Price;
  TABLE Locomotion='',  
      MEAN=''*Price=''*(type='')/box="Mean Rental Prices" misstext="Not Available";
RUN;