End if.
Do if (bserial='16643042').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='16992080').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
* For all manually-altered cases, work out pregnum values for pregnancy slots 1-8.
Do if (changed=2).
loop #i=1 to 8.
do if (key40(5*#i-4) ne 0).
compute xpregnu(#i)=1.
loop #j=1 to 4.
if (key40(5*#i+#j-4) ne 0)xpregnu(#i)=xpregnu(#i)+1.
end loop.
end if.
end loop.
loop #i=1 to 40.
Do if(key40(#i) ne 0).
compute xprega(#i)=vprega(key40(#i)).
compute xpregc(#i)=vpregc(key40(#i)).
compute xpregd(#i)=vpregd(key40(#i)).
compute xkilo(#i)=vkilo(key40(#i)).
compute xpregf(#i)=vpregf(key40(#i)).
compute xpregh(#i)=vpregh(key40(#i)).
compute xwhopa(#i)=vwhopa(key40(#i)).
compute xwerkd(#i)=vwerkd(key40(#i)).
compute xwatkd(#i)=vwatkd(key40(#i)).
compute xabspa(#i)=vabspa(key40(#i)).
compute xabspb(#i)=vabspb(key40(#i)).
compute xabspc(#i)=vabspc(key40(#i)).
compute xabskb(#i)=vabskb(key40(#i)).
compute xabskc(#i)=vabskc(key40(#i)).
compute xabskd(#i)=vabskd(key40(#i)).
compute xabske(#i)=vabske(key40(#i)).
compute xpound(#i)=vpound(key40(#i)).
compute xounce(#i)=vounce(key40(#i)).
compute xprged(#i)=vprged(key40(#i)).
compute xprgem(#i)=vprgem(key40(#i)).
compute xpregg(#i)=vpregg(key40(#i)).
compute xwhopb(#i)=vwhopb(key40(#i)).
compute xabska(#i)=vabska(key40(#i)).
More intriguing information
1. Confusion and Reinforcement Learning in Experimental Public Goods Games2. The name is absent
3. The name is absent
4. The name is absent
5. National urban policy responses in the European Union: Towards a European urban policy?
6. Effects of a Sport Education Intervention on Students’ Motivational Responses in Physical Education
7. Demographic Features, Beliefs And Socio-Psychological Impact Of Acne Vulgaris Among Its Sufferers In Two Towns In Nigeria
8. Pass-through of external shocks along the pricing chain: A panel estimation approach for the euro area
9. Multiple Arrhythmogenic Substrate for Tachycardia in a
10. Dual Track Reforms: With and Without Losers