Call Us: +1 (541) 207-3662
C# Two Way Ranova Example
[TOC]
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
namespace CenterSpace.NMath.Stats.Examples.CSharp
{
/// <summary>
/// A .NET example in C# showing how to use class TwoWayRanova to perform a two-way ANOVA
/// with repeated measures on one factor.
/// </summary>
/// <remarks>
/// This example was constructed with a Visual Studio wizard. The code
/// generated by the wizard is contained in the region labled "Windows Form
/// Designer generated code". The example code is contained in the
/// constructor for the class TwoWayRanovaExample.
/// </remarks>
public class TwoWayRanovaExample : System.Windows.Forms.Form
{
private System.Windows.Forms.DataGrid dataGrid1;
private System.Windows.Forms.Label label1;
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null;
/// <summary>
/// Constructor for class TwoWayRanovaExmaple.
/// </summary>
public TwoWayRanovaExample()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
// Read in data from a file. The file contains data for a test for
// contamination of surgical scrub suits. One group of workers changed
// their scrub suit at lunch, while the other group wore a surgical
// gown to lunch and did not change their scrub suits. Bacterial
// contamination level of the scrub suits was measured at 3 times
// during the worker's shifts. The nonrepeated factor is the scrub suit
// group (change or not change), the repeated factor is time.
string filename = "..\\..\\TwoWayRanovaExample.dat";
DataFrame anovaData = DataFrame.Load(filename, true, false, " ", true);
// Class TwoWayRanova performs a balanced two-way analysis of variance with
// repeated measures on one factor. Multiple linear regression is used to
// compute the RANOVA values. The constructor takes a DataFrame
// containing the data, and the column indices of the repeated factor,
// the nonrepeated factor, and the contamination level.
TwoWayRanova anova = new TwoWayRanova(anovaData, 1, 2, 0);
// This example simply displays a traditional RANOVA table
// in a System.Windows.Forms.DataGrid object. The next few lines of
// code format the table contents.
// First retrieve the table to display. Class TwoWayRanovaTable is a
// subclass of DataFrame.
TwoWayRanovaTable anovaTable = anova.RanovaTable;
// Next, let's set the precision to three decimal places. Note that this
// does not actually change the numbers in the RANOVA table. It just
// determines how many decimal places are displayed when the table is
// converted to a string.
((DFNumericColumn)anovaTable[1]).NumericFormat = "F0";
for (int i = 2; i < anovaTable.Cols; ++i)
{
((DFNumericColumn)anovaTable[i]).NumericFormat = "F3";
}
// Next convert the RANOVA table into a string. This has the effect of
// formatting all the numbers so that they have three digits after the decimal
// point and all Double.NaN values are represented as a ".". (Some rows
// in the ANOVA table that do not have F statistic values or F statistic
// p-values associated with them. The cells that correspond to these rows
// and the F and P columns contain Double.NaN values.)
DataFrame displayFrame = new DataFrame(anovaTable.ToString(), true, true, "\t", false);
// Note that in the previous line we passed a value of false for the
// parse parameter to the DataFrame constructor (the last parameter).
// This gives us a DataFrame object in which all the column types
// are strings. This lets us format the data easily.
// If the p-value for the F statistic is too small, it is rounded
// to zero when we set the precision to three decimal places. It doesn't
// look good to have a p-value of 0 in our display, so let's display
// something a bit more sensible like display "< 0.001".
int rowIndex, colIndex;
if (anovaTable.FstatisticPvalue("ScrubSuit") < .001)
{
colIndex = displayFrame.IndexOfColumn(TwoWayAnovaTable.PvalueColName);
rowIndex = displayFrame.IndexOfKey("ScrubSuit");
displayFrame[rowIndex, colIndex] = "< 0.001";
}
if (anovaTable.FstatisticPvalue("Time") < .001)
{
colIndex = displayFrame.IndexOfColumn(TwoWayAnovaTable.PvalueColName);
rowIndex = displayFrame.IndexOfKey("Time");
displayFrame[rowIndex, colIndex] = "< 0.001";
}
if (anovaTable.InteractionFstatisticPvalue < 0.001)
{
colIndex = displayFrame.IndexOfColumn(TwoWayAnovaTable.PvalueColName);
rowIndex = displayFrame.IndexOfKey(TwoWayAnovaTable.InteractionRowKey);
displayFrame[rowIndex, colIndex] = "< 0.001";
}
// Finally, display the ANOVA table in the DataGrid.
this.dataGrid1.DataSource = displayFrame.ToDataTable();
// The interaction effect indicates that the change in bacterial counts
// over time is different in the two groups (F = 24.163, p < 0.001). The
// main effect of time is also highly significant (F = 25.9, p 0.001).
// The difference bettween scrub suit groups is insignificant (F = 3.86,
// p = 0.057).
}
/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose(bool disposing)
{
if (disposing)
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose(disposing);
}
#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.dataGrid1 = new System.Windows.Forms.DataGrid();
this.label1 = new System.Windows.Forms.Label();
((System.ComponentModel.ISupportInitialize)(this.dataGrid1)).BeginInit();
this.SuspendLayout();
//
// dataGrid1
//
this.dataGrid1.BackgroundColor = System.Drawing.Color.White;
this.dataGrid1.CaptionVisible = false;
this.dataGrid1.DataMember = "";
this.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText;
this.dataGrid1.Location = new System.Drawing.Point(24, 112);
this.dataGrid1.Name = "dataGrid1";
this.dataGrid1.PreferredColumnWidth = 110;
this.dataGrid1.ReadOnly = true;
this.dataGrid1.RowHeadersVisible = false;
this.dataGrid1.Size = new System.Drawing.Size(664, 128);
this.dataGrid1.TabIndex = 0;
//
// label1
//
this.label1.Font = new System.Drawing.Font("Microsoft Sans Serif", 14.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((System.Byte)(0)));
this.label1.Location = new System.Drawing.Point(145, 24);
this.label1.Name = "label1";
this.label1.Size = new System.Drawing.Size(424, 64);
this.label1.TabIndex = 1;
this.label1.Text = "Two Way Anova With Repeated Measures\r\nOn One Factor Example";
this.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter;
//
// TwoWayRanovaExample
//
this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
this.ClientSize = new System.Drawing.Size(714, 272);
this.Controls.AddRange(new System.Windows.Forms.Control[] {
this.label1,
this.dataGrid1});
this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle;
this.Name = "TwoWayRanovaExample";
this.Text = "TwoWayRanovaExample";
((System.ComponentModel.ISupportInitialize)(this.dataGrid1)).EndInit();
this.ResumeLayout(false);
}
#endregion
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new TwoWayRanovaExample());
}
} // class
} // namespace
[TOC]
