Z:\to_server\website\mrdcl-learning.com\mrdcl_files\MKT-01\EPS Example 2 - Rating Scales\run.stp
start data,
serial number in columns 1-4,
ds $gender=$6/1,2,
x='Male;
Female',
xt='Gender',
ds $age=$7/1-3,
x='16-34;
35-44;
45+',
xt='Age',
ds $q1_1=$11/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q1 Rating of brands - Brand A',
ds $q1_2=$12/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q1 Rating of brands - Brand B',
ds $q1_3=$13/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q1 Rating of brands - Brand C',
ds $q1_4=$14/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q1 Rating of brands - Brand D',
ds $q1_5=$15/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q1 Rating of brands - Brand E',
ds $q2_1=$21/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand AA',
ds $q2_2=$22/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand BB',
ds $q2_3=$23/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand CC',
ds $q2_4=$24/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand DD',
ds $q2_5=$25/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand EE',
ds $q2_6=$26/1-5,e,
x='Very good (5)<v5>;
Quite good (4)<v4>;
Neither good nor poor (3)<v3>;
Quite poor (2)<v2>;
Very poor (1)<v1>;
Not stated<z>',
xt='Q2 Rating of new brands - Brand FF',
ds $q3=$55/1,2,
x='Yes;No',
xt='Q3',
ds $q4=$56/1,2,
x='Yes;No',
xt='Q4',
ds $q5_1=$41/1-7,e,
x='Agree very strongly (7)<v7>;
Agree quite strongly (6)<v6>;
Agree a little (5)<v5>;
Neither (4)<v4>;
Disagree a little (3)<v3>;
Disagree quite strongly (2)<v2>;
Disagree very strongly (1)<v1>;
Not stated<z>',
xt='Q5 Whether agree brands are healthy - Brand A',
ds $q5_2=$42/1-7,e,
x='Agree very strongly (7)<v7>;
Agree quite strongly (6)<v6>;
Agree a little (5)<v5>;
Neither (4)<v4>;
Disagree a little (3)<v3>;
Disagree quite strongly (2)<v2>;
Disagree very strongly (1)<v1>;
Not stated<z>',
xt='Q5 Whether agree brands are healthy - Brand B',
ds $q5_3=$43/1-7,e,
x='Agree very strongly (7)<v7>;
Agree quite strongly (6)<v6>;
Agree a little (5)<v5>;
Neither (4)<v4>;
Disagree a little (3)<v3>;
Disagree quite strongly (2)<v2>;
Disagree very strongly (1)<v1>;
Not stated<z>',
xt='Q5 Whether agree brands are healthy - Brand C',
ds $q5_4=$44/1-7,e,
x='Agree very strongly (7)<v7>;
Agree quite strongly (6)<v6>;
Agree a little (5)<v5>;
Neither (4)<v4>;
Disagree a little (3)<v3>;
Disagree quite strongly (2)<v2>;
Disagree very strongly (1)<v1>;
Not stated<z>',
xt='Q5 Whether agree brands are healthy - Brand D',
ds $q5_5=$45/1-7,e,
x='Agree very strongly (7)<v7>;
Agree quite strongly (6)<v6>;
Agree a little (5)<v5>;
Neither (4)<v4>;
Disagree a little (3)<v3>;
Disagree quite strongly (2)<v2>;
Disagree very strongly (1)<v1>;
Not stated<z>',
xt='Q5 Whether agree brands are healthy - Brand E',
finish data,
start tables,
dm $tt_q1_1=$q1_1/1..2,$q1_1,
x='Top 2 Box' + $q1_1,
xt=$q1_1,
t#1=$tt_q1_1 * $gender,
dm $tt_q1_2=$q1_2/1..2,$q1_2,
x='Top 2 Box' + $q1_2,
xt=$q1_2,
t#2=$tt_q1_2 * $gender,
dm $tt_q1_3=$q1_3/1..2,$q1_3,
x='Top 2 Box' + $q1_3,
xt=$q1_3,
t#3=$tt_q1_3 * $gender,
dm $tt_q1_4=$q1_4/1..2,$q1_4,
x='Top 2 Box' + $q1_4,
xt=$q1_4,
t#4=$tt_q1_4 * $gender,
dm $tt_q1_5=$q1_5/1..2,$q1_5,
x='Top 2 Box' + $q1_5,
xt=$q1_5,
t#5=$tt_q1_5 * $gender,
%avg='Brand A',
t#6a(f=ndis/naid)=$q1_1 * $gender,
vt='Q1 Rating of brands - Mean score summary',
%avg='Brand B',
+t#6b(f=ndis/naid)=$q1_2 * $gender,
%avg='Brand C',
+t#6c(f=ndis/naid)=$q1_3 * $gender,
%avg='Brand D',
+t#6d(f=ndis/naid)=$q1_4 * $gender,
%avg='Brand E',
+t#6e(f=ndis/naid)=$q1_5 * $gender,
%avg='Mean score',
dm $ttbt_q2_1=$q2_1/1..2,4..5,$q2_1,
x='Top 2 Box;Bottom 2 Box' + $q2_1,
xt=$q2_1,
t#7=$ttbt_q2_1 * $age,
dm $ttbt_q2_2=$q2_2/1..2,4..5,$q2_2,
x='Top 2 Box;Bottom 2 Box' + $q2_2,
xt=$q2_2,
t#8=$ttbt_q2_2 * $age,
dm $ttbt_q2_3=$q2_3/1..2,4..5,$q2_3,
x='Top 2 Box;Bottom 2 Box' + $q2_3,
xt=$q2_3,
t#9=$ttbt_q2_3 * $age,
dm $ttbt_q2_4=$q2_4/1..2,4..5,$q2_4,
x='Top 2 Box;Bottom 2 Box' + $q2_4,
xt=$q2_4,
t#10=$ttbt_q2_4 * $age,
dm $ttbt_q2_5=$q2_5/1..2,4..5,$q2_5,
x='Top 2 Box;Bottom 2 Box' + $q2_5,
xt=$q2_5,
t#11=$ttbt_q2_5 * $age,
dm $ttbt_q2_6=$q2_6/1..2,4..5,$q2_6,
x='Top 2 Box;Bottom 2 Box' + $q2_6,
xt=$q2_6,
t#12=$ttbt_q2_6 * $age,
dm $summary_q2(6),
h='
Brand AA;
Brand BB;
Brand CC;
Brand DD;
Brand EE;
Brand FF
',
t#13(f=nitb/nptc)=$q2_1 * $summary_q2,
vt='Q2 Rating of new brands - Summary',
t#13=$q2_1 * 1,
t#13=$q2_2 * 2,
t#13=$q2_3 * 3,
t#13=$q2_4 * 4,
t#13=$q2_5 * 5,
t#13=$q2_6 * 6,
%avg='Brand AA',
t#14a(f=ndis/naid)=$q2_1 * $age,
vt='Q2 Rating of new brands - Mean score summary',
%avg='Brand BB',
+t#14b(f=ndis/naid)=$q2_2 * $age,
%avg='Brand CC',
+t#14c(f=ndis/naid)=$q2_3 * $age,
%avg='Brand DD',
+t#14d(f=ndis/naid)=$q2_4 * $age,
%avg='Brand EE',
+t#14e(f=ndis/naid)=$q2_5 * $age,
%avg='Brand FF',
+t#14f(f=ndis/naid)=$q2_6 * $age,
%avg='Mean score',
t#15=$q3 * $gender,
t#16=$q4 * $gender,
dm $tt_q5_1=$q5_1/1..2,$q5_1,
x='Top 2 Box' + $q5_1,
xt=$q5_1,
t#17=$tt_q5_1 * $age,
dm $tt_q5_2=$q5_2/1..2,$q5_2,
x='Top 2 Box' + $q5_2,
xt=$q5_2,
t#18=$tt_q5_2 * $age,
dm $tt_q5_3=$q5_3/1..2,$q5_3,
x='Top 2 Box' + $q5_3,
xt=$q5_3,
t#19=$tt_q5_3 * $age,
dm $tt_q5_4=$q5_4/1..2,$q5_4,
x='Top 2 Box' + $q5_4,
xt=$q5_4,
t#20=$tt_q5_4 * $age,
dm $tt_q5_5=$q5_5/1..2,$q5_5,
x='Top 2 Box' + $q5_5,
xt=$q5_5,
t#21=$tt_q5_5 * $age,
dm $ttbt_q5_1=$q5_1/1..2,6..7,$q5_1,
x='Top 2 Box;Bottom 2 Box' + $q5_1,
xt=$q5_1,
t#22=$ttbt_q5_1 * $age,
dm $ttbt_q5_2=$q5_2/1..2,6..7,$q5_2,
x='Top 2 Box;Bottom 2 Box' + $q5_2,
xt=$q5_2,
t#23=$ttbt_q5_2 * $age,
dm $ttbt_q5_3=$q5_3/1..2,6..7,$q5_3,
x='Top 2 Box;Bottom 2 Box' + $q5_3,
xt=$q5_3,
t#24=$ttbt_q5_3 * $age,
dm $ttbt_q5_4=$q5_4/1..2,6..7,$q5_4,
x='Top 2 Box;Bottom 2 Box' + $q5_4,
xt=$q5_4,
t#25=$ttbt_q5_4 * $age,
dm $ttbt_q5_5=$q5_5/1..2,6..7,$q5_5,
x='Top 2 Box;Bottom 2 Box' + $q5_5,
xt=$q5_5,
t#26=$ttbt_q5_5 * $age,
%avg='Brand A',
t#27a(f=ndis/naid)=$q5_1 * $age,
vt='Q5 Whether agree brands are healthy - Mean score summary',
%avg='Brand B',
+t#27b(f=ndis/naid)=$q5_2 * $age,
%avg='Brand C',
+t#27c(f=ndis/naid)=$q5_3 * $age,
%avg='Brand D',
+t#27d(f=ndis/naid)=$q5_4 * $age,
%avg='Brand E',
+t#27e(f=ndis/naid)=$q5_5 * $age,
%avg='Mean score',
finish tables,
