* Пример переструктурирования данных - 3.
* Характер преобразований: строки "размножаются" (каждая в 24 экземплярах), причём информация из первых 10 переменных сохраняется,
* а информация из остальных 95 переменных записывается в блок из 4 переменных (a1-a4), высотой в 24 строки - примеч. перев.
*** Автор: rlevesque@videotron.ca.
* Создаём набор данных для примера.
DATA LIST FREE /v1.
BEGIN DATA.
1 2 3 4 5 6 7 8 9 10
END DATA.
LIST.
DO REPEAT V=V2 TO V105.
COMPUTE v=TRUNC(UNIFORM(1)*10).
END REPEAT.
EXECUTE.
LIST.
* Изменяем структуру данных.
VECTOR v=v1 TO v105.
LOOP #cnt=10 TO 102 BY 4.
COMPUTE a1=v(#cnt).
COMPUTE a2=v(#cnt+1).
COMPUTE a3=v(#cnt+2).
COMPUTE a4=v(#cnt+3).
XSAVE OUTFILE='c:\\temp\\lp_1_25.sav' /KEEP v1 TO v9 a1 TO a4.
END LOOP.
EXECUTE.
GET FILE='c:\\temp\\lp_1_25.sav'.