public static DataTable PCALoadingstoDataTable(RDotNet.DataFrame dataFrame) { try { DataTable dtable = new DataTable(); dtable.Columns.Add("Component"); for (int i = 0; i < dataFrame.ColumnCount; ++i) { dtable.Columns.Add(dataFrame.ColumnNames[i]); } for (int i = 0; i < dataFrame.RowCount; i++) { DataRow newRow = dtable.Rows.Add(); newRow[0] = "PC " + (i + 1); for (int j = 0; j < dataFrame.ColumnCount; j++) { newRow[j + 1] = Math.Round(Double.Parse(dataFrame[i, j].ToString()), 3); } } return(dtable); } catch (Exception e) { Console.WriteLine(e.StackTrace); } return(null); }
public static DataTable CorelationFrameToDataTable(RDotNet.DataFrame dataFrame) { try { DataTable dtable = new DataTable(); dtable.Columns.Add("item"); for (int i = 0; i < dataFrame.ColumnCount; ++i) { dtable.Columns.Add(dataFrame.ColumnNames[i]); } for (int i = 0; i < dataFrame.RowCount; i++) { DataRow newRow = dtable.Rows.Add(); newRow[0] = dataFrame.ColumnNames[i]; for (int j = 0; j < dataFrame.ColumnCount; j++) { newRow[j + 1] = dataFrame[i, j]; } } return(dtable); } catch (Exception e) { Console.WriteLine(e.StackTrace); } return(null); }
public static DataTable PCATableToDataTable(RDotNet.DataFrame dataFrame) { try { DataTable dtable = new DataTable(); dtable.Columns.Add(""); for (int i = 0; i < dataFrame.ColumnCount; ++i) { dtable.Columns.Add("PC " + (i + 1)); } for (int i = 0; i < dataFrame.RowCount; i++) { DataRow newRow = dtable.Rows.Add(); switch (i) { case 0: newRow[0] = "Value"; break; case 1: newRow[0] = "Varriability (%)"; break; case 2: newRow[0] = "Cumulated Value"; break; case 3: newRow[0] = "Cumulated V (%)"; break; } for (int j = 0; j < dataFrame.ColumnCount; j++) { if (i == 0 || i == 2) { newRow[j + 1] = Math.Round(Double.Parse(dataFrame[i, j].ToString()), 7); } else { newRow[j + 1] = Math.Round(Double.Parse(dataFrame[i, j].ToString()), 3) + "%"; } } } return(dtable); } catch (Exception e) { Console.WriteLine(e.StackTrace); } return(null); }
private void toolStripMenuItemStatsElementsConstructs_Click(object sender, EventArgs e) { try { dlgValues dlg = new dlgValues(); dlg.Text = "Please provide custom parameters for the statsConstructs function"; dlg.AcceptedValues = InterviewService.StatsGridAcceptedValues(); if (dlg.ShowDialog() != System.Windows.Forms.DialogResult.OK) { throw new Exception("Aborted by User"); } RDotNet.DataFrame df = this.interviewService.StatsGrid(false, dlg.OptionalValues); RHelper.RHelper.FillDataGridViewFromR(df, getDGV(getNewTabpage("statsConstructs")), 3); } catch (Exception ex) { MessageBox.Show(ex.Message, "Error while Calculating statistics for Constructs"); } }
private void rootMeanSquareCorrelationToolStripMenuItem_Click(object sender, EventArgs e) { try { dlgValues dlg = new dlgValues(); dlg.Text = "Please provide custom parameters for the elementRmsCor function"; dlg.AcceptedValues = InterviewService.CorrelationRMSAcceptedValues(); if (dlg.ShowDialog() != System.Windows.Forms.DialogResult.OK) { throw new Exception("Aborted by User"); } RDotNet.DataFrame df = this.interviewService.CorrelationRMS(true, dlg.OptionalValues); RHelper.RHelper.FillDataGridViewFromR(df, getDGV(getNewTabpage("elementRmsCor")), 3); } catch (Exception ex) { Console.WriteLine(ex.ToString()); Console.WriteLine(ex.StackTrace); MessageBox.Show(ex.Message, "Error while Calculating Root mean square correlation for Elements"); } }