Создание дихотомий из неупорядоченных категорий множественного ответа

*(Вопрос) Я пытаюсь сформировать новые переменные на основе уже существующих.
Конкретнее, я переделываю переменные множественного ответа в несколько
двоичных переменных вида "вариант ответа - выбран/не выбран".
Переменные множественного ответа заполняются от первых переменных в порядке
упоминания вариантов, т.е. могут быть расположены не по возрастанию выбранных вариантов.

*(Ответ) Размещён в SPSSX-L, автор: Raynald Levesque, 01.07.2002.
* Посетите Raynald's SPSS Tools по адресу: http://www.spsstools.net .

DATA LIST LIST /id r1 r2 r3 r4 r5 r6 r7 r8 r9 r10.
BEGIN DATA.
1 3 5 4 7 8 . . . .
2 5 7 9 4 . . . . .
3 5 2 6 4 1 9 8 . .
END DATA.
LIST.
 
VECTOR c(10).
DO REPEAT val=1 2 3 4 5 6 7 8 9 10
  /c=c1 TO c10.
COMPUTE c=ANY(val,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10).
END REPEAT.
EXECUTE.