IMsBinaryRegressionTransform.StatCoefficients

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Model: IMsModel;
    Trans: IMsFormulaTransform;
    VarTrans: IMsFormulaTransformVariable;
    Tree: IMsFormulaTransformSlicesTree;
    Slice: IMsFormulaTransformSlice;
    Selector: IMsFormulaTransformSelector;
    Formula: IMsFormula;
    Binary: IMsBinaryRegressionTransform;
    Calc: IMsModelCalculation;
    Coord: IMsFormulaTransformCoord;
    Coef: IModelCoefficients;
    Estim: Array Of Double;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("BinReg",MB.ItemById("CONT_MODEL").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);
    Binary := Formula.Method As IMsBinaryRegressionTransform;
    // Определяем значимость доверительных границ
    Binary.ConfidenceLevel:= 0.9;
    // Определяем метод обработки пропусков
    Binary.MissingData.Method:= MissingDataMethod.SampleAverage;
    Calc := Model.CreateCalculation;
    Calc.Period.IdentificationStartDate:= DateTime.ComposeDay(2000, 01, 01);
    Calc.Period.IdentificationEndDate:= DateTime.ComposeDay(2007, 12, 31);
    Calc.Period.ForecastStartDate:= DateTime.ComposeDay(2007, 01, 01);
    Calc.Period.ForecastEndDate:= DateTime.ComposeDay(2010, 12, 31);
    Coord := Trans.CreateCoord(VarTrans);
    // Идентификация нового уравнения
    Binary.Identify(Calc As IMsMethodCalculation, Coord);
    // Получаем значения статистических характеристик
    Coef := Binary.StatCoefficients(Coord);
    // Массив оцененных значений коэффициентов модели
    Estim := Coef.Coefficients.Estimate;
    // Выводим массив в консоль
    For i := 0 To Estim.Length - 1 Do
    Debug.WriteLine(Estim[i]);
    End For;
    MObj.Save;
End Sub UserProc;