Outlier

Author

Eric W. Weisstein
January 25, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Statistics/Outlier.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Outlier.html.

©2010 Wolfram Research, Inc. except for portions noted otherwise

Additional Authors

Scatterplot figures by 
John Renze
September 20, 2004

Figures

V5

<<Graphics`Graphics`
<<Graphics`Colors`
<<Statistics`NormalDistribution`

normdata=Append[RandomArray[NormalDistribution[],100],-6];
Histogram[normdata]

ListPlot[Insert[Table[i^2+1000Random[],{i,100}],6000,30],PlotStyle->{Red,AbsolutePointSize[4]}]

V6

normdata=Append[RandomReal[NormalDistribution[],100],-6];
g1=Histogram[normdata,PerformanceGoal->"Speed"]

g2=ListPlot[Insert[Table[i^2+1000Random[],{i,100}],6000,30],PlotStyle->{Red,AbsolutePointSize[4]},PerformanceGoal->"Speed"]

GraphicsRow[{g1,g2}]