|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 |
<br> using
(REngine engine = REngine.CreateInstance("RDotNet")) { engine.Initialize(); var
expandGrid = engine.Evaluate("function(x, y) { expand.grid(x=x, y=y) }").AsFunction(); var
v1 = engine.CreateIntegerVector(new[] {1, 2, 3}); var
v2 = engine.CreateCharacterVector(new[] {"a", "b", "c"}); var
df = expandGrid.Invoke(new
SymbolicExpression[] {v1, v2}).AsDataFrame(); engine.SetSymbol("cases", df); // Not correct: the ‘y‘ column is a "factor". This returns "1", "1", "1", "2", "2", etc. var
letterCases = engine.Evaluate("cases[,‘y‘]").AsCharacter().ToArray(); // This returns something more intuitive for C# Returns ‘a‘,‘a‘,‘a‘,‘b‘,‘b‘,‘b‘,‘c‘ etc. letterCases = engine.Evaluate("as.character(cases[,‘y‘])").AsCharacter().ToArray(); // In the manner of R.NET, try letterCases = engine.Evaluate("cases[,‘y‘]").AsFactor().GetFactors();<br><br> TestDataFrame(engine); Console.WriteLine("Press any key to exit the program"); Console.ReadKey(); } private
static
void
TestDataFrame(REngine engine) { // import csv file engine.Evaluate("dataset<-read.table(file.choose(), header=TRUE, sep = ‘,‘)"); // retrieve the data frame DataFrame dataset = engine.Evaluate("dataset").AsDataFrame(); for
(int
i = 0; i < dataset.ColumnCount; ++i) { Console.WriteLine("Column: {0} {1}", i, dataset.ColumnNames[i]); } for
(int
i = 0; i < dataset.RowCount; ++i) { Console.WriteLine("Row: {0} {1}", i, dataset.RowNames[i]); for
(int
k = 0; k < dataset.ColumnCount; ++k) { Console.WriteLine("Cell[{0},{1}]={2}", i, k, dataset[i, k]); } } } |
原文：http://www.cnblogs.com/wondaz/p/3533433.html