Image talk:Correlation examples.png

From Wikipedia, the free encyclopedia

[edit] Missing Definition

Considering the Mathematica 6 code in the Description section, the function "makePlot" is not defined. So that the code can not generate the figure. I try to write a definition for "makePlot" therefore the program can work on Mathematica:

makePlot = 
  ListPlot[#1[[RandomChoice[Range[n], #2], All]], Axes -> False, 
    ImageSize -> 100, PlotStyle -> AbsolutePointSize[1], 
    PlotRange -> {{-2, 2}, {-2, 2}}, AspectRatio -> 1, 
    PlotLabel -> 
     Style[NumberForm[
       Check[Correlation[#1[[All, 1]], #1[[All, 2]]], 0., 
        Correlation::zerosd], {2, 1}], 16]] &;

Everett (talk) 02:21, 22 April 2008 (UTC)