private Dew.Stats.TMtxPCA tMtxPCA1;
private Steema.TeeChart.Styles.Points points1;
private Dew.Stats.Tee.BiPlot biplot1;
points1 =
new Steema.TeeChart.Styles.Points(tChart1.Chart);
points1.Title = "Scores";
points1.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Diamond;
biplot1 =
new Dew.Stats.Tee.BiPlot(tChart1.Chart);
biplot1.Title = "Coefficients";
biplot1.Pointer.Style = Steema.TeeChart.Styles.PointerStyles.Circle;
biplot1.Marks.Visible =
true;
biplot1.FilledArrows =
true;
biplot1.Marks.ShapeStyle = Steema.TeeChart.Drawing.TextShapeStyle.RoundRectangle;
tMtxPCA1.Recalc();
points1.Clear();
biplot1.Clear();
biplot1.GetHorizAxis.Labels.Style = Steema.TeeChart.AxisLabelStyle.Value;
// plot scores - regular point series
for (
int i = 0; i <tMtxPCA1.ZScores.Rows; i++)
points1.Add(tMtxPCA1.ZScores.Values[i, 0], tMtxPCA1.ZScores.Values[i, 1]);
// plot eigevectors (2d subspace)
for (
int i = 0; i <tMtxPCA1.PC.Cols; i++)
biplot1.Add(tMtxPCA1.PC.Values[0,i], tMtxPCA1.PC.Values[1,i],i.ToString());
