static void Main(string[] args) { RFuncs r = new RFuncs(); //RVector v = new RVector(); //r.StreamResultsToFileOn("C:\\\\Users\\\\Joshua\\\\Documents\\\\Visual Studio 2010\\\\Projects\\\\Dunwich\\\\Dunwich\\\\output\\\\test_output.txt"); //r.WriteLine("Hello World!"); //r.StreamResultsToFileOff(); //r.WriteLine("foo"); //RVector rVector = new RVector(); //rVector.Init(() => rVector); //r.WriteBDCommand("x <- c(1,2,3,4,5)"); //r.WriteBDCommand("y <- c(35,14,32,14,15)"); //r.WriteBDCommand("X11()"); //r.WriteBDCommand("plot(x,y)"); //r.WriteBDCommand("print(\"Press Return to Continue\")"); //r.WriteBDCommand("invisible(readLines(\"stdin\", n=1))"); //v.Add(3); //r.print(v); // Test array multiplication RVector v1 = new RVector(1, 2, 3); r.print(v1); RVector v2 = new RVector(1, 2, 3); r.print(v2); r.print("Multiplication Result: " + v1 * v2); r.ExecuteRFile(); //Console.WriteLine("Press enter to continue..."); //Console.ReadLine(); }
/** * Function: plot * Description: Plot a single vector * Parameters: * Returns: * */ public void plot(RVector r) { rw.WriteToRFile("X11()\n"); rw.WriteToRFile("plot(" + r.Name + ")"); }
/** * Function: plot * Description: Plot 2 vectors against each other * Parameters: * Returns: * */ public void plot(RVector r1, RVector r2) { rw.WriteToRFile("X11()\n"); rw.WriteToRFile("plot(" + r1.Name + ", " + r2.Name + ")"); }
/** * Function: Print * Description: * Parameters: * Returns: null * */ public void print(RVector v) { rw.WriteToRFile(v.Name + "\n"); }