IMs2SLSTransform.IsCoefficientsSaved

Syntax

IsCoefficientsSaved(Coord: IMsFormulaTransformCoord): Boolean;

Parameters

Coord. The output variable slice, for which coefficients are checked.

Description

The IsCoefficientsSaved property returns True if model coefficients are saved.

Example

Executing the example requires that the repository contains a modeling container with the MODEL_SPACE identifier. A model with the New_2SLS identifier created in this container uses the method of linear regression for calculation (instrumental variables estimation).

Add links to the Metabase, Ms system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Model: IMsModel;
    Trans: IMsFormulaTransform;
    VarTrans: IMsFormulaTransformVariable;
    Tree: IMsFormulaTransformSlicesTree;
    Slice: IMsFormulaTransformSlice;
    Selector: IMsFormulaTransformSelector;
    Formula: IMsFormula;
    SLS: IMs2SLSTransform;
    Calc: IMsModelCalculation;
    Coord: IMsFormulaTransformCoord;
    Coef: Array Of Double;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("New_2SLS", MB.ItemById("MODEL_SPACE").Key).Edit;
    Model := MObj As IMsModel;
    Trans := Model.Transform;
    VarTrans := Trans.Outputs.Item(0);
    Tree := VarTrans.SlicesTree(VarTrans);
    Slice := Tree.CreateSlice(1);
    Selector := Model.Transform.CreateSelector;
    Selector.Slice := Slice;
    Formula := Model.Transform.Transform(Selector);
    SLS := Formula.Method As IMs2SLSTransform;
    Calc := Model.CreateCalculation;
    Calc.Period.IdentificationStartDate := DateTime.ComposeDay(1990, 01, 01);
    Calc.Period.IdentificationEndDate := DateTime.ComposeDay(2000, 12, 31);
    Calc.Period.ForecastStartDate := DateTime.ComposeDay(2001, 01, 01);
    Calc.Period.ForecastEndDate := DateTime.ComposeDay(2010, 01, 01);
    Coord := Trans.CreateCoord(VarTrans);
    //Identification of new equation
    SLS.Identify(Calc As IMsMethodCalculation, Coord);
    //Receive the calculated coefficients
    Coef := SLS.Coefficients(Coord);
    //If is not saved - save
    If Not SLS.IsCoefficientsSaved(Coord) Then
    SLS.Coefficients(Coord) := Coef;
    End If;
    //Display to console
    For i := 0 To Coef.Length - 1 Do
    Debug.WriteLine(Coef[i]);
    End For;
    MObj.Save;
End Sub UserProc;

After executing the example, new coefficients of equation are calculated. The coefficient values are saved and displayed in the development environment console window.