public List <Tuple <int, int> > GetPairings(int noScripts, int noPairings, string rScript) { REngineClass.GetREngine().Evaluate(@"source('REngine\\RScripts\\Generate\\" + rScript + "')"); NumericMatrix matrix = REngineClass.GetREngine().Evaluate(string.Format("matrix <- generatePairings(noOfScripts = {0}, noOfPairings = {1})", noScripts, noPairings)).AsNumericMatrix(); List <Tuple <int, int> > pairings = new List <Tuple <int, int> >(); for (int i = 0; i < matrix.RowCount; i++) { pairings.Add(new Tuple <int, int>((int)matrix[i, 0], (int)matrix[i, 1])); } return(pairings); }
//public NumericMatrix getPairings(int noScripts, int noPairings) public List <Tuple <int, int> > getPairings(int noScripts, int noPairings) { REngineClass.GetREngine().Evaluate(@"source('wwwroot/RScripts/ComparativeJudgmentPairingsTest.R')"); NumericMatrix matrix = REngineClass.GetREngine().Evaluate(string.Format("matrix <- generatePairings(noOfScripts = {0}, noOfPairings = {1})", noScripts, noPairings)).AsNumericMatrix(); //create an empty list of tuples List <Tuple <int, int> > pairings = new List <Tuple <int, int> >(); for (int i = 0; i < matrix.RowCount; i++) { //add new tuple to list pairings.Add(new Tuple <int, int>((int)matrix[i, 0], (int)matrix[i, 1])); } return(pairings); }