Uses MtxExpr, StatProbPlots, StatSeries, Math387, MtxVecTee;
procedure Example(Series1: TStatProbSeries);
var XData, YData, XVec, YVec: Vector;
  X1,Y1,X2,Y2: double;
begin
  // generate some random values for Data vec
  XData.Size(100);
  YData.Size(100);
  XData.RandGauss(0.0,1.0); // standard norm. dist.
  YData.RandGauss(0.0,1.0); // standard norm. dist.
  // now construct QQ plot
  StatQQPlot(XData,YData,XVec,YVec,X1,X2,Y1,Y2,false);
  With Series1 do
  begin
    MinX := X1;
    MinY := Y1;
    MaxX := X2;
    MaxY := Y2;
  end;
  DrawValues(XVec,YVec,Series1);
end;

#include "Math387.hpp"
#include "MtxExpr.hpp"
#include "StatProbPlots.hpp"
#include "StatSeries.hpp"
#include "MtxVecTee.hpp"
void __fastcall Example(TStatProbSeries * Series1);
{
  sVector xdata,ydata,xvec,yvec;
  double x1,x2,y1,y2;

  xdata.Size(100,false);
  xdata.RandGauss(0.0,1.0); // standard distribution
  ydata.Size(100,false);
  ydata.RandGauss(1.0,2.3); // standard distribution

  StatQQPlot(xdata,ydata,xvec,yvec,x1,x2,y1,y2,false);
  Series1->MinX = x1;
  Series1->MaxX = x2;
  Series1->MinY = y1;
  Series1->MaxY = y2;
  DrawValues(xvec,yvec,Series1);
}