* Want to scramble sin numbers. DATA LIST LIST /sin(A11). BEGIN DATA. 12345678901 12345678901 12345678901 12345678901 12345678901 12345678901 12345678901 12345678901 12345678901 12345678901 END DATA. LIST. COMPUTE id=$casenum. SAVE OUTFILE='data.sav'. VECTOR rvar(11). LOOP #cnt=1 TO 11. - COMPUTE rvar(#cnt)=UNIFORM(1). END LOOP. LOOP #cnt = 1 to 11. - COMPUTE rvar = rvar(#cnt) . - XSAVE OUTFILE = 'temp.sav' / keep = id rvar. END LOOP. EXECUTE. GET FILE = 'temp.sav' . RANK VARIABLES= rvar (d) BY id /TIES = LOW / RANK INTO rvarrank . DO IF $casenum=1. - COMPUTE ind=0. ELSE. - COMPUTE ind=MOD(LAG(ind)+1,11). END IF. VECTOR rvar(11). COMPUTE rvar(ind+1) = rvarrank. EXECUTE. AGGREGATE OUTFILE = * /PRESORTED / BREAK = id /rvar1 TO rvar11 = MAX(rvar1 TO rvar11). MATCH FILES /FILE = 'data.sav' /FILE = * /BY id . EXECUTE. STRING sin2(A11). VECTOR rvar=rvar1 TO rvar11. COMPUTE sin2=SUBSTR(sin,rvar(1),1). LOOP #cnt=2 TO 11. - COMPUTE sin2=CONCAT(RTRIM(sin2),SUBSTR(sin,rvar(#cnt),1)). END LOOP. EXECUTE.