Documentation Example 1 for PROC CORRESP
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: CRSPEX1 */
/* TITLE: Documentation Example 1 for PROC CORRESP */
/* PRODUCT: STAT */
/* SYSTEM: ALL */
/* KEYS: marketing research, categorical data analysis */
/* PROCS: CORRESP */
/* DATA: */
/* */
/* SUPPORT: saswfk UPDATE: July 25, 2010 */
/* REF: PROC CORRESP, EXAMPLE 1 */
/* MISC: */
/****************************************************************/
title1 'Automobile Owners and Auto Attributes';
title2 'Simple Correspondence Analysis';
proc format;
value Origin 1 = 'American' 2 = 'Japanese' 3 = 'European';
value Size 1 = 'Small' 2 = 'Medium' 3 = 'Large';
value Type 1 = 'Family' 2 = 'Sporty' 3 = 'Work';
value Home 1 = 'Own' 2 = 'Rent';
value Sex 1 = 'Male' 2 = 'Female';
value Income 1 = '1 Income' 2 = '2 Incomes';
value Marital 1 = 'Single with Kids' 2 = 'Married with Kids'
3 = 'Single' 4 = 'Married';
run;
data Cars;
missing a;
input (Origin Size Type Home Income Marital Kids Sex) (1.) @@;
* Check for End of Line;
if n(of Origin -- Sex) eq 0 then do; input; return; end;
marital = 2 * (kids le 0) + marital;
format Origin Origin. Size Size. Type Type. Home Home.
Sex Sex. Income Income. Marital Marital.;
output;
datalines;
131112212121110121112201131211011211221122112121131122123211222212212201
121122023121221232211101122122022121110122112102131112211121110112311101
211112113211223121122202221122111311123131211102321122223221220221221101
122122022121220211212201221122021122110132112202213112111331226122221101
1212110231AA220232112212113112112121220212212202112111022222110212121221
211211012211222212211101313112113121220121112212121112212211222221112211
221111011112220122212201131211013121220113112222131112012131110221112211
121112212211121121112201321122311311221113112212213211013121220221221101
133211011212220233311102213111023211122121312222212212111111222121112211
133112011212112212112212212222022131222222121101111122022211220113112212
211112012232220121221102213211011131220121212201211122112331220233312202
222122012111220212112201221122112212220222212211311122012111110112212212
112222011131112221212202322211021222110121221101333211012232110132212101
223222013111220112211101211211022112110212211102221122021111220112111211
111122022121110113311122322111122221210222211101212122021211221232112202
1331110113112211213222012131221211112212221122021331220212121112121.2212
121122.22121210233112212222121011311122121211102211122112121110121212101
311212022231221112112211211211312221221213112212221122022222110131212202
213122211311221212112222113122221221220213111221121211221211221221221102
131122211211220221222101223112012111221212111102223122111311222121111102
2121110121112202133122222311122121312212112.2101312122012111122112112202
111212023121110111112221212111012211220221321101221211122121220112111112
212211022111110122221101121112112122110122122232221122212211221212112202
213122112211110212121201113211012221110232111102212211012112220121212202
221112011211220121221101211211022211221112121101111112212121221111221201
211122122122111212112221111122312132110113121101121122222111220222121102
221211012122110221221102312111012122220121121101121122221111222212221102
212122021222120113112202121122212121110113111101123112212111220113111101
221112211321210131212211121211011222110122112222123122023121223112212202
311211012131110131221102112211021131220213122201222111022121221221312202
131.22523221110122212221131112412211220221121112131222022122220122122201
212111011311220221312202221122123221210121222202223122121211221221111112
211111121211221221212201113122122131220222112222211122011311110112312211
211222013221220121211211312122122221220122112201111222011211110122311112
312111021231220122121101211112112.22110222112212121122122211110121112101
121211013211222121112222321112112112110121321101113111012221220121312201
213211012212220221211101321122121111220221121101122211021122110213112212
212122011211122131221101121211022212220212121101
;
ods graphics on;
* Perform Simple Correspondence Analysis;
proc corresp all data=Cars outc=Coor;
tables Marital, Origin;
run;
title2 'Multiple Correspondence Analysis';
* Perform Multiple Correspondence Analysis;
proc corresp mca observed data=Cars outc=Coor;
tables Origin Size Type Income Home Marital Sex;
run;
title2 'Binary Table';
* Perform Multiple Correspondence Analysis;
proc corresp data=Cars binary;
ods select RowCoors;
tables Origin Size Type Income Home Marital Sex;
run;