Taste and Odor of Sodas

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: mdssoda                                             */
 /*   TITLE: Taste and Odor of Sodas                             */
 /* PRODUCT: stat                                                */
 /*  SYSTEM: all                                                 */
 /*    KEYS: multidimensional scaling,                           */
 /*   PROCS: mds                                                 */
 /*    DATA:                                                     */
 /*                                                              */
 /* SUPPORT: saswfk                      UPDATE: 8/10/2007       */
 /*     REF: alscal7                                             */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

title 'Taste and Odor of Sodas: NSF Chautauqua Course';

options validvarname=any;

data soda;
   input Coke 1-4
         Tab 5-8
         Pepsi 9-12
         'Diet Pepsi'n 13-16
         'Dr. Pepper'n 17-20
         'Diet Dr. Pepper'n 21-24;
   datalines;

0009
00060004
000900080009
0003000300040003
00020003000800030009

0007
00030006
000400090005
0009000700080009
00080004000500070009

0007
00020005
000200040006
0009000900090007
00060006000800020009

0003
00030003
000800040006
0002000300040009
00030003000500060007

0009
00020008
000600030009
0002000800050008
00070003000800030008

0007
00080008
000900050006
0005000700080006
00020002000900030006

0007
00050002
000200050005
0007000200050007
00050005000200050002

0004
00030003
000400050003
0008000200030002
00040004000100060006

0003
00030005
000600050009
0007000500090009
00050009000400050001

0004
00020007
000200050002
0009000900090010
00070009000600080002

0006
00060006
000900090009
0003000800030009
00090005000900040007

04.5
2.753.75
03.503.001.5
03.01.7504.53.25
4.750.752.2504.52.75

00.5
02.003.5
02.003.501.5
04.001.503.502.5
00.500.504.503.500.0

02.5
3.250001
4.2500010004
00033.250.7502.5
00034.25000401.501.5

3.25
000103.5
03.53.250003
04.54.754.7504.5
04.54.754.754.250.25

02.5
00044.25
0.7501.500.5
4.254.754.7500.5
1.251.254.250.7500.5

00.5
00.00.75
1.251.750.75
00050005000504.5
04.504.500053.7500.5

0002
00021.75
4.251.754.25
03.54.2500044.25
03.53.7500.54.251.25

04.5
1.254.25
00050.750004
2.254.254.254.75
03.51.2500040.7503.5

0.75
2.250.75
03.503.502.5
1.25000103.54.25
02.503.503.502.500.5

04.4
000103.8
03.801.301.5
02.701.802.503.2
00.7000400.803.403.6

04.5
00034.25
4.7500001.25
000300040.750005
2.25000300040.2504.5

02.5
00.500.5
03.500020003
03.504.500030004
3.7504.500.503.50.75

0001
00.10002
000100.500.2
04.803.803.80001
03.904.803.804.800.4

0006
00010006
000500060002
0002000600020005
00040006000600050005

0005
00020002
2.2500020005
0000000000000000
00000000000000000005

2.75
0.503.25
00014.250.50
000400042.504.25
00021.75000400040.75

00.5
1.400.30
1.301.2501.5
2.503.7503.603.4
1.250.550.750.7501.4

0004
00.503.5
000300010004
000201.500020001
00032.75000302.50002

1.15
1.150.75
4.1500.62.25
3.2502.81.750.15
0.150.250003000401.5

0.56
0.251.25
0.692.310000
2.131.221.633.19
1.564.382.1300050.69

0.50
2.193.69
1.130.381.19
4.632.314.193.38
00022.934.634.380.25

1.86
4.060002
3.190.440001
3.884.310.751.69
4.383.691.441.253.25

3.94
1.380002
3.191.502.81
3.131.442.063.56
0.942.132.130.943.88

0.75
3.811.81
00014.430001
0.750.311.254.63
3.754.380.563.501.06

04.6
04.801.4
04.200.402.5
04.201.1000404.4
00.701.701.403.703.9

3.38
2.190.94
3.253.381.25
0.192.442.752.19
2.693.134.194.133.13

01.5
04.501.2
03.504.601.2
00.701.603.504.3
02.502.703.203.701.4

02.7
00.902.3
00.6000002.5
02.701.5000503.9
04.304.201.703.700.2

03.8
01.30002
02.400.704.4
01.501.703.203.7
03.503.104.102.50004

0001
0.532.25
1.120.520.63
03.53.881.5003.5
1.883.2500011.120.25

00.5
000103.4
01.301.100.6
02.804.3000204.3
02.302.503.702.400.2

01.2
0.750.65
0.8000.603.5
2.7001.804.502.5
04.604.704.504.70000

03.5
00.702.1
00.800.70001
02.504.103.504.5
04.604.601.901.502.1

0001
00.901.9
01.402.904.1
02.504.303.50002
04.102.5000303.802.1

04.3
00.804.2
04.200.903.5
04.104.3000404.3
04.204.104.800.804.3
;

ods graphics on;

proc mds fit=squared data=soda level=ordinal pfit;
   title2 'Dissimilarity Judgments from 46 Subjects About 6 Sodas';
   title3 'Ordinal Measurement Level';
   title4 'ALSCAL S-Stress = .36979';
run;

proc mds fit=squared data=soda level=interval pfit ptrans;
   title3 'Interval Measurement Level';
run;

proc mds fit=squared data=soda level=interval negative pfit ptrans;
   title3 'Interval Measurement Level Allowing Negative Slopes';
run;

ods graphics off;

options validvarname=v7;