Probleme mit do-Schleife

["Christine Ebling" <ebling@XXXXXXX.de>]

 Hallo!

Ich habe Probleme mit einer do-Schleife. Konkret:


Ich habe einen Vektor yvec, dem ich eine Matrix yperm zuordnen will

yvec:

1
3
0
5
2
0
4

yperm:

 1      0      0      0      0
 0      0      1      0      0
 0      0      0      0      0
 0      0      0      0      1
 0      1      0      0      0
 0      0      0      0      0
 0      0      0      1      0


In Gauss funktioniert das mit "yperm=zeros(7,5); i=1; do while i<=7; if
yvec[i]>0;yperm[i,yvec[i]]=1; endif; i=i+1; endo;"



Versuche ich nun eine ähnliche Schleife in Mathematica zu schreiben

"yperm = Table[0, {7},{5}];
Do[if[yvec[[i]] > 0, yperm[[i, yvec[[i]]]] = 1, yperm[[i, 1]] = 0], {i,
      nobs}];"


 so kommt leider nichts Ordentliches raus. Was mache ich falsch?  Kann mir
irgendjemand weiterhelfen?

Herzlichen Dank im Voraus!

Christine Ebling