/**
* List object collection initalizer
* */
public RVector(List<object> values)
{
values = new List<object>();
foreach (object o in values) values.Add(o);
rw = new RFileWriter();
rw.WriteToRFile(Name + "<- c(");
for (int i = 0; i < values.Count; i++)
{
rw.WriteToRFile(values[i].ToString());
if (i + 1 < values.Count) rw.WriteToRFile(", ");
}
rw.WriteToRFile(")\n");
}
/**
* Variable paramater initalizer
* */
public RVector(params object[] args)
{
values = new List<object>();
foreach (object o in args) values.Add(o);
rw = new RFileWriter();
rw.WriteToRFile(Name + "<- c(");
for (int i = 0; i < args.Length; i++)
{
rw.WriteToRFile(args[i].ToString());
if (i+1 < args.Length) rw.WriteToRFile(", ");
}
rw.WriteToRFile(")\n");
}
/**
* Public constuctor instantiating RFileWriter
* */
public RVector()
{
values = new List<object>();
rw = new RFileWriter();
rw.WriteToRFile(Name + "<- c()\n");
}
/**
* Public constuctor instantiating RFileWriter
* */
public RFuncs()
{
rw = new RFileWriter();
}