function r=ispf(pf) 
% ispf(pf)  returns 1 if given probability function is valid 
r=1; 
if inrange(ttlprob(pf),1,1e-4)==0 
   r=0; 
end 
if ~(pf(1,2)==1) 
   r=0; 
end 
p=pvals(pf); 
if min(p)<0 
   r=0; 
end;