/* Sample SAS code and data for problem 2.133 */

DATA sanit;

INPUT ship $ score;

cards;

GRANDEMARINER                    95
SEABOURNSUN                      90
OLYMPICVOYAGER                   95
GRANDEUROFTHESEAS                94
JUBILEE                          95
CLUBMED2                         94
COSTAVICTORIA                    96
WINDSPIRIT                       98
NORWEGIANMAJESTY                 94
GALAXY                           98
COSTAATLANTICA                  100
VOLENDAM                         98
NORWEGIANDREAM                  100
MAASDAM                          94
MERCURY                          96
ORIENTVENUS                      87
SEVENSEASNAVIGATOR              100
SEABOURNPRIDE                    93
INFINITY                         97
SEABOURNLEGEND                   97
RADISSONDIAMOND                  96
OCEANPRINCESS                    97
NORDICEMPRESS                    98
VISTAMAR                         83
NORWEGIANWIND                    92
BOLERO                           96
ORIANA                          100
NIPPONMARU                       99
PARADISE                         95
ALBATROSS                        93
VIKINGSERENADE                   92
HOLIDAY                          97
ISLANDADVENTURE                  97
CARNIVALVICTORY                  97
NORWAY                           93
IMAGINATION                      94
MAJESTYOFTHESEAS                 90
CROWNPRINCESS                    96
ARKONA                           90
SUNPRINCESS                      98
MONARCHOFTHESEAS                 93
CARNIVALDESTINY                  96
SEABOURNGODDESSI                 92
ZAANDAM                          97
AURORA                           98
DISNEYWONDER                     99
CARNIVALTRIUMPH                  98
SENSATION                        90
VICTORIA                         94
SOVEREIGNOFTHESEAS               98
DISNEYMAGIC                      96
CRYSTALSYMPHONY                  93
STATENDAM                        94
TEXASTREASURE                    96
ELATION                          95
DELPHIN                          99
SEAPRINCESS                      97
MELODY                           98
CRYSTALHARMONY                   96
MILLENNIUM                       93
ZENITH                           95
LEGACY                           93
VISIONOFTHESEAS                  92
WESTERDAM                        92
CCOLUMBUS                        98
QUEENELIZABETH2                  92
FUJIMARU                         91
PACIFICVENUS                     82
UNIVERSEEXPLORER                 95
THEEMERALD                       91
CELEBRATION                      91
INSPIRATION                      98
GRANDPRINCESS                    94
REGALEMPRESS                     89
OCEANBREEZE                      95
PALMBEACHPRINCESS                92
REGALVOYAGER                     87
ROTTERDAM                        97
DAWNPRINCESS                     96
NOORDAM                          95
ENCHANTMENTOFTHESEAS             99
FASCINATION                      95
CARONIA                          95
ARCADIA                          96
SEABOURNGODDESSII                94
EXPLOREROFTHESEAS                91
VOYAGEROFTHESEA                  92
EUROPA                           96
DISCOVERYSUN                     95
NORWEGIANSEA                     90
TROPICALE                        86
RYNDAM                           96
AMSTERDAM                        93
FANTASY                          93
SILVERSHADOW                     97
CENTURY                          93
ECSTASY                          94
NORWEGIANSKY                     97
NANTUCKETCLIPPER                 88
RHAPSODYOFTHESEAS                94
VEENDAM                          86
LELEVANT                         91
SCOTIAPRINCE                     92
SPLENDOUROFTHESEAS               90
SILVERWIND                       96
CLIPPERADVENTURER                92
SEABIRD                          96
GRANDECARIBE                     93
SPIRITOFCOLUMBIA                 95
YORKTOWNCLIPPER                  90
HANSEATIC                        97
PACIFICSKY                       91
BIGREDBOATII                     94
PACIFICPRINCESS                  88
BIGREDBOATIII                    92
OCEANIC                          91
NIAGRAPRINCE                     88
SEALION                          92
REGALPRINCESS                    93
DOLPHINIV                        88
ASUKA                            94
ENCHANTEDCAPRI                   93
HORIZON                          92
REMBRANDT                        94
ENCHANTEDISLE                    89
MAXIMGORKIY                      90
ENCHANTEDSUN                     89
THETOPAZ                         77
COSTAROMANTICA                   90
ROYALPRINCESS                    94
FLAMENCO                         95
STELLASOLARIS                    93
CONTESSA1                        93
AEGEANI                          52
SILVERCLOUD                      98
DEUTSCHLAND                      91
SPIRITOFNINETYEIGHT              91
LEGENDOFTHESEAS                  95
ASTOR                            91
PAULGAUGUIN                      86
NORWEGIANSTAR                    78
BLACKWATCH                       86
SPIRITOFALASKA                   93
AIDA                             90
SPIRITOFDISCOVERY                96
SPIRITOFGLACIERBAY               95
SEABOURNSPIRIT                   92
TRITON                           93
COSTAALLEGRA                     88
BREMEN                           90
COSTACLASSICA                    92



;

title 'Problem 2.133: Ship Sanitation';

proc insight;
open sanit;
dist score;
run;

data new; set sanit;
zscore=(score - 93.1126)/5.184;
run;
proc print data=new;
run;

/* This will print the z-scores in the Output window */