* Тема: Замена пропусков средним значением с ограничением на число пропусков. * Ключевые слова: пропущенные значения, условные вычисления. * Автор: rlevesque@videotron.ca. * Перевод: А. Балабанов. * Опубликован: 09.03.2008. * Размещён: http://www.spsstools.ru/Syntax/WorkWithMissing/ConditionallyReplacingMissingByMeanExample2.txt (.sps). * ВОПРОС: Как мне заменить пропущенные значения в группе переменных, начиная с scale1 и до scale17 * средними значениями соответствующих переменных, но сделать это лишь в том случае, если * число пропусков меньше, чем 75% от общего числа переменных? * ОТВЕТ размещён в SPSSX-L 15.05.2001. Автор: rlevesque@videotron.ca. * Создадим пример данных для иллюстрации решения. NEW file. INPUT PROGRAM. SET SEED=7654321. VECTOR scale(17F8.3). LOOP id=1 TO 50. LEAVE id. LOOP #id=1 TO 17. * Примерно 25% значений в шкалах будут пропущенными. IF (UNIFORM(1)<.75) scale(#id)=TRUNC(UNIFORM(5)+.5). END LOOP. END CASE. END LOOP. END FILE. END INPUT PROGRAM. EXECUTE. * Решение. COMPUTE dummy=1. AGGREGATE OUTFILE='c:\\temp\\mydata.sav' /BREAK=dummy /mscale1 to mscale17=mean(scale1 to scale17). MATCH FILES FILE=* /TABLE='c:\\temp\\mydata.sav' /by dummy. DO IF (NMISS(scale1 to scale17) < 17*.25). + DO REPEAT orig = scale1 to scale17 /copy=mscale1 to mscale17. + if (missing (orig)) orig=copy. + END REPEAT. END IF. EXECUTE.