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");
}
