IDmMethod.Execute

Syntax

Execute: IDmReports;

Description

The Execute method calculates data mining method.

Comments

To get calculated method parameters, use the IDmMethod.Details property.

Example

Executing the example requires that the repository contains:

A table with the DM_TABLE identifier containing data for analysis
A regular report with the DM_REPORT_RES identifier, to which analysis results will be loaded.

Add links to the Metabase, Ms, Report, Stat, Tab, Ui system assemblies.

Sub UserKeyInf;
Var
    mb: IMetabase;
    TableDS: IDmTableDataSource;
    ReportDS: IDmReportDataSource;
    Method: IDmMethod;
    Report: IPrxReport;
    Shs: IPrxSheets;
    Sheet: ITabSheet;
    KeyInf: IDmKeyInfluences;
    Binning: IDmField;
    i: Integer;
    Attrs: Array Of Integer;
    Target: IUiCommandTarget;
    Reports: IDmReports;
    DmReport: IDmReport;
Begin
    mb := MetabaseClass.Active;
    // Create table data source
    TableDS := (New TableDataSource.Create) As IDmTableDataSource;
    // Determine source table
    TableDS.Table := mb.ItemByID("DM_TABLE").Bind;
    // Determine that data is located in table columns
    TableDS.DataInColumns := True;
    // Create a data source that is a regular report
    ReportDS := (New ReportDataSource.Create) As IDmReportDataSource;
    // Get regular report
    Report := mb.ItemByID("DM_REPORT_RES").Edit As IPrxReport;
    Shs := Report.Sheets;
    Shs.Clear;
    // Create a page to output results to
    Sheet := (Shs.Add("", PrxSheetType.Table) As IPrxTable).TabSheet;
    // Determine page where data will be loaded
    ReportDS.TabSheet := Sheet;
    // Specify data range
    ReportDS.Range := Sheet.Cell(0, 0);
    ReportDS.AddResultColumn("Category");
    // Create calculation method
    Method := (New DataMiningMethod.Create) As IDmMethod;
    // Specify method type
    Method.Kind := DmMethodKind.KeyInfluences;
    // Set input data source
    Method.InputDataSource := TableDS;
    // Set data consumer
    Method.OutputDataSource := ReportDS;
    // Set up calculation method parameters
    KeyInf := Method.Details As IDmKeyInfluences;
    // Determine column for analysis
    KeyInf.Target := TableDS.FieldCount - 1;
    Debug.WriteLine("Column for key factor analysis:");
    Debug.WriteLine(" - " + TableDS.Field(KeyInf.Target).Name);
    // Set factors that influence analysis
    Attrs := New Integer[TableDS.FieldCount - 2];
    Debug.WriteLine("Factors affecting analysis:");
    For i := 0 To Attrs.Length - 1 Do
        Attrs[i] := i + 1;
        Binning := TableDS.Field(i + 1);
        Debug.WriteLine(Binning.Index.ToString + ". " + Binning.Name);
        Debug.Indent;
        // Set the Binning procedure parameters
        If Binning.IsNumerical Then
            Binning.BinningType := BinningMethod.EqualDepth;
            Binning.CategoriesCount := 4;
            Binning.TreatNanAsCategory := False;
            Debug.WriteLine("number of non-empty values: " + Binning.NonEmptyCount.ToString);
        End If;
        Select Case Binning.FieldType
            Case DmFieldType.Date: Debug.WriteLine("data type: date");
            Case DmFieldType.Integer: Debug.WriteLine("data type: integer");
            Case DmFieldType.Numeric: Debug.WriteLine("data type: numeric");
            Case DmFieldType.String: Debug.WriteLine("data type: string");
        End Select;
        Debug.WriteLine("data source: " + Binning.DataSource.Caption);
        Debug.Unindent;
    End For;
    KeyInf.Attributes := Attrs;
    // Perform analysis and output results
    Reports := Method.Execute;
    DmReport := reports.FindByType(DmReportType.KeyInfluences);
    ReportDS := DmReport.Generate;
    Debug.WriteLine("Report caption: " + DmReport.Caption);
    Debug.WriteLine("Analysis type: " + KeyInf.DisplayName);
    Debug.WriteLine("Analysis method: " + KeyInf.StatMethod.DisplayName);
    ReportDS.TabSheet.View.Selection.SelectAll;
    ReportDS.TabSheet.View.Selection.Copy;
    Sheet.Table.Paste;
    Sheet.Columns(0, 1).AdjustWidth;
    Sheet.Rows(0, 1).AdjustHeight;
    Report.Sheets.Item(0).Name := ReportDS.Caption;
    (Report As IMetabaseObject).Save;
    // Open regular report that contains analysis results
    Target := WinApplication.Instance.GetObjectTarget(Report As IMetabaseObject);
    Target.Execute("Object.Open", Null);
End Sub UserKeyInf;

After executing the example the Key Factors data mining analysis will be performed for data from the DM_TABLE table using the Binning procedure for numeric data. Analysis parameters will be displayed in the console window. Analysis results will be loaded to the DM_REPORT_RES report.