Ejemplo n.º 1
0
        public void PlotBoxPlots(clsBoxPlotPar clsBoxPlotPar)
        // this will be called from the plot forms.
        // thus the reason to be public
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading events

                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_BoxPlotCompleted;

                #endregion

                var boxPlotParams = new frmBoxPlotPar(clsBoxPlotPar);

                var res = boxPlotParams.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsBoxPlotPar = boxPlotParams.clsBoxPlotPar;
                    var boxPlot = new clsRplotData(mclsBoxPlotPar.Rcmd, "Box");

                    m_BackgroundWorker.RunWorkerAsync(boxPlot);
                    mfrmShowProgress.Reset("Generating the Box Plot ...");
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading events

                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_BoxPlotCompleted;

                #endregion
            }
        }
Ejemplo n.º 2
0
        public void PlotMA(clsMAplotsPar plotOptions)
        // this will be called from the plot forms.
        // thus the reason to be public
        {
            if (mDataTab.Controls.Count != 0)
            {
                #region Hook Threading Events

                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_MAplotCompleted;

                #endregion

                var maPlotParams = new frmMAplotsPar(plotOptions);

                var res = maPlotParams.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsMApar = maPlotParams.clsMAplotPar;
                    var maPlot = new clsRplotData(mclsMApar.RCommand, "MA");

                    m_BackgroundWorker.RunWorkerAsync(maPlot);
                    mProgressForm.Reset("Generating MA Plots ...");
                    mProgressForm.ShowDialog();
                }

                #region Unhook Threading Events

                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_MAplotCompleted;

                #endregion
            }
        }
Ejemplo n.º 3
0
        // this will be called from the plot forms.
        // thus the reason to be public
        public void PlotBoxPlots(clsBoxPlotPar clsBoxPlotPar)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading events
                m_BackgroundWorker.DoWork += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_BoxPlotCompleted;
                #endregion

                var mfrmBoxplotPar = new frmBoxPlotPar(clsBoxPlotPar);

                var res = mfrmBoxplotPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsBoxPlotPar = mfrmBoxplotPar.clsBoxPlotPar;
                    var mclsRplots = new clsRplotData(mclsBoxPlotPar.Rcmd, "Box");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating the Box Plot ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading events
                m_BackgroundWorker.DoWork -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_BoxPlotCompleted;
                #endregion
            }
        }
Ejemplo n.º 4
0
        // this will be called from the plot forms.
        // thus the reason to be public
        public void PlotCorrelation(clsCorrelationPar clsCorrPar)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_CorrPlotCompleted;
                #endregion

                frmCorrelationPar mfrmCorrPar;
                mfrmCorrPar = new frmCorrelationPar(clsCorrPar);

                DialogResult res = mfrmCorrPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsCorrPar = mfrmCorrPar.clsCorrPar;
                    var mclsRplots = new clsRplotData(mclsCorrPar.Rcmd, "Corr");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Correlation Plot ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading Events
                m_BackgroundWorker.DoWork -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_CorrPlotCompleted;
                #endregion
            }
        }
Ejemplo n.º 5
0
        public void PlotVenn(clsVennPar vennParameters)
        {
            if (mDataTab.Controls.Count != 0)
            {
                #region Hook Threading Events

                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_VennCompleted;

                #endregion

                var vennDiagramParams = new frmVennDiagramPar(vennParameters);
                var res = vennDiagramParams.ShowDialog();
                if (res == DialogResult.OK)
                {
                    vennParameters = vennDiagramParams.clsVennPar;
                    var vennDiagramPlot = new clsRplotData(vennParameters.RCommand, "Venn");

                    m_BackgroundWorker.RunWorkerAsync(vennDiagramPlot);
                    mProgressForm.Reset("Generating Venn Diagram ...");
                    mProgressForm.ShowDialog();
                }

                #region Unhook Threading Events

                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_VennCompleted;

                #endregion
            }
        }
Ejemplo n.º 6
0
        void m_BackgroundWorker_GenerateHeatmap(object sender, DoWorkEventArgs e)
        {
            DataTable     mDTclusters = new DataTable();
            clsRplotData  arg         = (clsRplotData)e.Argument;
            string        rcmd        = arg.mstrRcmd;
            string        plotname    = arg.mstrPlotName;
            clsPlotResult mclsPlotResult;

            try
            {
                rConnector.rdcom.EvaluateNoReturn(rcmd);
                if (doClust)
                {
                    if (rConnector.GetTableFromRvector("clusterResults"))
                    {
                        mDTclusters           = rConnector.mDataTable.Copy();
                        mDTclusters.TableName = "clusterResults";
                        AddDataset2HashTable(mDTclusters);
                    }
                }
                rConnector.rdcom.EvaluateNoReturn("cat(\"Heatmap done.\n\")");
                mclsPlotResult = new clsPlotResult(LoadImage(tempFile), plotname);
                e.Result       = mclsPlotResult;
            }
            catch (Exception ex)
            {
                MessageBox.Show("RDCOM failed: " + ex.Message, "Error!");
                e.Result = null;
                e.Cancel = true;
                DeleteTempFile(tempFile);
            }
        }
        public void PlotHeatmap(clsHeatmapPar mclsHmapPar)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_HeatMapCompleted;
                #endregion

                var mfrmHmapPar = new frmHeatMapPar(mclsHmapPar)
                {
                    maxRowCount = maxRow
                };

                var res = mfrmHmapPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsHeatmapPar = mfrmHmapPar.clsHmapPar;
                    doClust        = mfrmHmapPar.DoClust;
                    var mclsRplots = new clsRplotData(mclsHeatmapPar.Rcmd, "Hmap");

                    Add2AnalysisHTable(mclsHeatmapPar, "Heatmap_Clustering");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Heatmap ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading Events
                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_HeatMapCompleted;
                #endregion
            }
        }
Ejemplo n.º 8
0
        public void PlotQQ(clsQQPar clsQQPar)
        // this will be called from the plot forms.
        // thus the reason to be public
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_QQPlotCompleted;
                #endregion

                var mfrmQQPar = new frmQQPar(clsQQPar);

                var res = mfrmQQPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsQQPar = mfrmQQPar.clsQQPar;

                    var mclsRplots = new clsRplotData(clsQQPar.Rcmd, "QQ");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Q-Q Plots ...";
                    mfrmShowProgress.ShowDialog();
                }
                #region Unhook Threading Events
                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_QQPlotCompleted;
                #endregion
            }
        }
Ejemplo n.º 9
0
        public void PlotHeatmap(clsHeatmapPar mclsHmapPar)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork += m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_HeatMapCompleted;
                #endregion

                var mfrmHmapPar = new frmHeatMapPar(mclsHmapPar)
                {
                    maxRowCount = maxRow
                };

                var res = mfrmHmapPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsHeatmapPar = mfrmHmapPar.clsHmapPar;
                    doClust = mfrmHmapPar.DoClust;
                    var mclsRplots = new clsRplotData(mclsHeatmapPar.Rcmd, "Hmap");

                    Add2AnalysisHTable(mclsHeatmapPar, "Heatmap_Clustering");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Heatmap ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading Events
                m_BackgroundWorker.DoWork -= m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_HeatMapCompleted;
                #endregion
            }
        }
Ejemplo n.º 10
0
        public void PlotQQ(clsQQPar clsQQPar)
        // this will be called from the plot forms.
        // thus the reason to be public
        {
            if (mDataTab.Controls.Count != 0)
            {
                #region Hook Threading Events

                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_QQPlotCompleted;

                #endregion

                var qqParams = new frmQQPar(clsQQPar);

                var res = qqParams.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mclsQQPar = qqParams.clsQQPar;
                    var qqPlot = new clsRplotData(clsQQPar.RCommand, "QQ");

                    m_BackgroundWorker.RunWorkerAsync(qqPlot);
                    mProgressForm.Reset("Generating Q-Q Plots ...");
                    mProgressForm.ShowDialog();
                }

                #region Unhook Threading Events

                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_QQPlotCompleted;

                #endregion
            }
        }
Ejemplo n.º 11
0
        public void PlotVenn(clsVennPar vennParameters)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_VennCompleted;
                #endregion

                var mfrmVennPar = new frmVennDiagramPar(vennParameters);
                var res         = mfrmVennPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    vennParameters = mfrmVennPar.clsVennPar;
                    var mclsRplots = new clsRplotData(vennParameters.Rcmd, "Venn");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Venn Diagram ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading Events
                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_VennCompleted;
                #endregion
            }
        }
        /// <summary>
        /// This will be called from the plot forms. thus the reason to be public
        /// </summary>
        /// <param name="mclsPCA"></param>
        public void PlotPCA(clsPCAplotPar pcaPlottingOptions)
        {
            if (mDataTab.Controls.Count == 0)
            {
                return;
            }

            #region Hook Threading Events

            m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_PCAPlotCompleted;

            #endregion

            var frmPCA = new frmPCAplotPar(pcaPlottingOptions);
            if (mhtDatasets.ContainsKey("Factors"))
            {
                var factorTable = mhtDatasets["Factors"];
                if (factorTable.mDTable.Columns.Count - 1 == pcaPlottingOptions.Datasets.Count)
                {
                    frmPCA.PopulateFactorComboBox = clsDataTable.DataTableRows(factorTable.mDTable);
                }
                else
                {
                    frmPCA.PopulateFactorComboBox = null;
                }
            }
            else
            {
                frmPCA.PopulateFactorComboBox = null;
            }

            if (frmPCA.ShowDialog() == DialogResult.OK)
            {
                mPCAOptions = frmPCA.PCAOptions;
                var pcaPlots = new clsRplotData(mPCAOptions.RCommand, "PCA");

                m_BackgroundWorker.RunWorkerAsync(pcaPlots);
                mProgressForm.Reset("Generating PCA Plots ...");
                mProgressForm.ShowDialog();
            }

            #region Unhook Threading Events

            m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_PCAPlotCompleted;

            #endregion
        }
Ejemplo n.º 13
0
        /// <summary>
        /// This will be called from the plot forms. thus the reason to be public
        /// </summary>
        /// <param name="mclsPCA"></param>
        public void PlotPCA(clsPCAplotPar mclsPCA)
        {
            if (mtabControlData.Controls.Count == 0)
            {
                return;
            }

            #region Hook Threading Events
            m_BackgroundWorker.DoWork             += m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_PCAPlotCompleted;
            #endregion

            var mfrmPCA = new frmPCAplotPar(mclsPCA);
            if (mhtDatasets.ContainsKey("Factors"))
            {
                var mclsFactors = mhtDatasets["Factors"];
                if ((mclsFactors.mDTable.Columns.Count - 1) == mclsPCA.Datasets.Count)
                {
                    mfrmPCA.PopulateFactorComboBox = clsDataTable.DataTableRows(mclsFactors.mDTable);
                }
                else
                {
                    mfrmPCA.PopulateFactorComboBox = null;
                }
            }
            else
            {
                mfrmPCA.PopulateFactorComboBox = null;
            }

            if (mfrmPCA.ShowDialog() == DialogResult.OK)
            {
                mclsPCApar = mfrmPCA.clsPCApar;
                var mclsRplots = new clsRplotData(mclsPCApar.Rcmd, "PCA");

                m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                mfrmShowProgress.Message = "Generating PCA Plots ...";
                mfrmShowProgress.ShowDialog();
            }

            #region Unhook Threading Events
            m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_PCAPlotCompleted;
            #endregion
        }
Ejemplo n.º 14
0
        void m_BackgroundWorker_GeneratePlots(object sender, DoWorkEventArgs e)
        {
            clsRplotData  arg      = (clsRplotData)e.Argument;
            string        rcmd     = arg.mstrRcmd;
            string        plotname = arg.mstrPlotName;
            clsPlotResult mclsPlotResult;

            try
            {
                rConnector.rdcom.EvaluateNoReturn(rcmd);
                mclsPlotResult = new clsPlotResult(LoadImage(tempFile), plotname);
                e.Result       = mclsPlotResult;
            }
            catch (Exception ex)
            {
                MessageBox.Show("RDCOM failed: " + ex.Message, "Error!");
                e.Result = null;
                e.Cancel = true;
                DeleteTempFile(tempFile);
            }
        }
        public void PlotHeatmap(clsHeatmapPar heatmapOptions)
        {
            if (mDataTab.Controls.Count != 0)
            {
                #region Hook Threading Events

                m_BackgroundWorker.DoWork             += m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_HeatMapCompleted;

                #endregion

                var frmHeatmapParams = new frmHeatMapPar(heatmapOptions)
                {
                    maxRowCount = maxRow
                };

                var res = frmHeatmapParams.ShowDialog();
                if (res == DialogResult.OK)
                {
                    mHeatmapOptions = frmHeatmapParams.clsHmapPar;
                    mDoClustering   = frmHeatmapParams.DoClust;
                    var heatmapPlot = new clsRplotData(mHeatmapOptions.RCommand, "Hmap");

                    Add2AnalysisHTable(mHeatmapOptions, "Heatmap_Clustering");

                    m_BackgroundWorker.RunWorkerAsync(heatmapPlot);
                    mProgressForm.Reset("Generating Heatmap ...");
                    mProgressForm.ShowDialog();
                }

                #region Unhook Threading Events

                m_BackgroundWorker.DoWork             -= m_BackgroundWorker_GenerateHeatmap;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_HeatMapCompleted;

                #endregion
            }
        }
Ejemplo n.º 16
0
        public void PlotVenn(clsVennPar vennParameters)
        {
            if (mtabControlData.Controls.Count != 0)
            {
                #region Hook Threading Events
                m_BackgroundWorker.DoWork += m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_VennCompleted;
                #endregion

                var mfrmVennPar = new frmVennDiagramPar(vennParameters);
                var res = mfrmVennPar.ShowDialog();
                if (res == DialogResult.OK)
                {
                    vennParameters = mfrmVennPar.clsVennPar;
                    var mclsRplots = new clsRplotData(vennParameters.Rcmd, "Venn");

                    m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                    mfrmShowProgress.Message = "Generating Venn Diagram ...";
                    mfrmShowProgress.ShowDialog();
                }

                #region Unhook Threading Events
                m_BackgroundWorker.DoWork -= m_BackgroundWorker_GeneratePlots;
                m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_VennCompleted;
                #endregion
            }
        }
Ejemplo n.º 17
0
        /// <summary>
        /// This will be called from the plot forms. thus the reason to be public
        /// </summary>
        /// <param name="mclsPCA"></param>
        public void PlotPCA(clsPCAplotPar mclsPCA)
        {
            if (mtabControlData.Controls.Count == 0)
            {
                return;
            }

            #region Hook Threading Events
            m_BackgroundWorker.DoWork += m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_PCAPlotCompleted;
            #endregion

            var mfrmPCA = new frmPCAplotPar(mclsPCA);
            if (mhtDatasets.ContainsKey("Factors"))
            {
                var mclsFactors = mhtDatasets["Factors"];
                if ((mclsFactors.mDTable.Columns.Count - 1) == mclsPCA.Datasets.Count)
                    mfrmPCA.PopulateFactorComboBox = clsDataTable.DataTableRows(mclsFactors.mDTable);
                else
                    mfrmPCA.PopulateFactorComboBox = null;
            }
            else
                mfrmPCA.PopulateFactorComboBox = null;

            if (mfrmPCA.ShowDialog() == DialogResult.OK)
            {
                mclsPCApar = mfrmPCA.clsPCApar;
                var mclsRplots = new clsRplotData(mclsPCApar.Rcmd, "PCA");

                m_BackgroundWorker.RunWorkerAsync(mclsRplots);
                mfrmShowProgress.Message = "Generating PCA Plots ...";
                mfrmShowProgress.ShowDialog();
            }

            #region Unhook Threading Events
            m_BackgroundWorker.DoWork -= m_BackgroundWorker_GeneratePlots;
            m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_PCAPlotCompleted;
            #endregion
        }