%Race Pt
for i=1:7,
 ii=1:length(wlp);
 wind=wlp(ii,10);
 u=wlp(ii,18);
 i2=find((u+wind)~=NaN);
 if(length(i2)~=0),
    [mn(i),std1(i),mean2(i),std2(i),corr(i),tr(i)]= stats(wind(i2),u(i2),1);
 end
end
for i=1:7,
 ii=1:length(wlp);
 wind=wlp(ii,10);
 u=wlp(ii,11);
 i2=find((u+wind)~=NaN);
 if(length(i2)~=0),
    [mn(i),std1(i),mean2(i),std2(i),corr(i),tr(i)]= stats(wind(i2),u(i2),1);
 end
end 
