Удаление «пустых» переменных

* Тема: Удаление переменных, все значения которых - пропущенные значения.
* Ключевые слова: пропущенные значения, удаление переменных.
* Опубликован: 09.03.2008.
* Автор: Simon Freidin.
* Перевод: А. Балабанов.
* Размещение: http://www.spsstools.ru/Syntax/WorkWithMissing/DeleteVariablesWithOnlyMissingValues.txt (.sps).

*(Вопрос) Как можно автоматически удалить переменные, все значения которых являются пропусками?.

*(Ответ) Решение размещено в SPSSX-L 17.01.2004. Автор: Simon Freidin.

set printback=listing.
data list list/v1 to v5.
begin data.
1   0   .   0   .
0   0   .   0   .
0   2   .   0   .
end data.
save outfile='c:\\temp\\origdata.sav'.

flip.
count allmiss=var001 to var003 (sysmis).  /* замените 003 на число наблюдений в ИСХОДНОМ файле */
select if allmiss=3.                      /* замените    3 на число наблюдений в ИСХОДНОМ файле */

do if $casenum=1.
write outfile='c:\\temp\\select.sps'/"get file='c:\\temp\\origdata.sav'/drop=".
end if.
write outfile='c:\\temp\\select.sps'/" " case_lbl.
exe.

include file='c:\\temp\\select.sps'.
exe.