ISmGrangerTest.MissingData

Syntax

MissingData: IMissingData;

Description

The MissingData property determines missing data treatment method.

Comments

By default missing data is not treated.

Example

Add a link to the Stat system assembly.

Sub UserProc;
Var
    GrangerCT: ISmGrangerTest;
    y: Array[
10,4Of Double;
    res, i, j: Integer;
    ResValue: Array 
Of Integer;
    PValue, TStat: Array 
Of Double;
Begin
    GrangerCT := 
New SmGrangerTest.Create;
    
// values Y
    y[00] := 6209;  y[01] := 4110;  y[02] := 3415;  y[03] := 2822;
    y[
10] := 6385;  y[11] := 4280;  y[12] := 3673;  y[13] := 3023;
    y[
20] := 6752;  y[21] := 4459;  y[22] := 4013;  y[23] := 3131;
    y[
30] := 6837;  y[31] := 4545;  y[32] := 4278;  y[33] := 3351;
    y[
40] := 6495;  y[41] := 4664;  y[42] := 4577;  y[43] := 3463;
    y[
50] := 6907;  y[51] := 4861;  y[52] := 5135;  y[53] := Double.Nan;
    y[
60] := 7349;  y[61] := 5195;  y[62] := 5388;  y[63] := 3815;
    y[
70] := 7213;  y[71] := 5389;  y[72] := 5610;  y[73] := 3960;
    y[
80] := 7061;  y[81] := 5463;  y[82] := 5787;  y[83] := 4119;
    y[
90] := 7180;  y[91] := 5610;  y[92] := 6181;  y[93] := 4351;
    GrangerCT.Data := y;
    GrangerCT.Lag := 
1;
    GrangerCT.ConfidenceLevel := 
0.05;

    GrangerCT.MissingData.Method := MissingDataMethod.SampleAverage;
    GrangerCT.MissingData.MethodParameter := 
1000;
    res := GrangerCT.Execute;
    Debug.WriteLine(
"Probability matrix:");
    Debug.Indent;
    
For i := 0 To GrangerCT.PValueMatrix.GetUpperBound(1Do
        
For j := 0 To GrangerCT.PValueMatrix.GetUpperBound(2Do
            PValue := GrangerCT.PValueMatrix;
            Debug.Write(PValue[i, j].ToString + 
", ");
        
End For;
        Debug.WriteLine(
" ");
    
End For;
    Debug.Unindent;
    Debug.WriteLine(
"Result matrix:");
    Debug.Indent;
    
For i := 0 To GrangerCT.ResValueMatrix.GetUpperBound(1Do
        
For j := 0 To GrangerCT.ResValueMatrix.GetUpperBound(2Do
            ResValue := GrangerCT.ResValueMatrix;
            Debug.Write(ResValue[i, j].ToString + 
", ");
        
End For;
        Debug.WriteLine(
" ");
    
End For;
    Debug.Unindent;
    Debug.WriteLine(
"Fisher statistics matrix:");
    Debug.Indent;
    
For i := 0 To GrangerCT.TStatMatrix.GetUpperBound(1Do
        
For j := 0 To GrangerCT.TStatMatrix.GetUpperBound(2Do
            TStat := GrangerCT.TStatMatrix;
            Debug.Write(TStat[i, j].ToString + 
", ");
        
End For;
        Debug.WriteLine(
" ");
    
End For;
    Debug.Unindent;
End Sub UserProc;

After executing the example the console window displays probability matrix and Fisher statistics matrix.

See also:

ISmGrangerTest