* QUESTION: How to replace missing values of scale1 TO scale17 by the mean
* value but only when number of missing is less than 75% of scales.
* ANSWER posted to SPSSX-L on 2001/5/15 by rlevesque@videotron.ca.
* Define dummy data file for illustration purposes.
NEW file.
INPUT PROGRAM.
SET SEED=7654321.
VECTOR scale(17F8.3).
LOOP id=1 TO 50.
LEAVE id.
LOOP #id=1 TO 17.
* about 25% of scales will be missing.
IF (UNIFORM(1)