In[Infinity]:=

<br /><br /><br /><br />DataPlot[X_, color_, size_] := Table[ Graphics[{color, size, Point[{Union[X][[k]], 0}]}], {k, 1, Length[Union[X]]}] ;

In[Infinity]:=

<br />Protect[ProbSpike, Freq, FreqPlot, DataPlot] ;

Created by Mathematica  (September 6, 2006) Valid XHTML 1.1!