C#调用R-经管之家官网！

最近用C#编程需要用到时间序列去分析数据，于是乎，就自己动手写一段实现时间序列的代码，结果发现光写最小二乘就写了n行，感觉不划算，如果能直接调用R里面的函数就方便多了，于是乎就上网找相关的内容。
一、安装调用R的COM服务器
参考了一下zhangyk05和Lijian的博文，总结了以下的步骤：

• 进入网站下载statconnDCOM3.5-1B2_Noncommercial.exe。
• 装好后需要在R中安装rscproxy包。
• 设置环境变量R_HOME。
• 将%R_HOME%libraryrscproxylibs添入环境变量path。
• 测试。完成前面4步以后，在开始菜单statconn-DCOM，找到Serve01-Basic Test，能使用R按钮就没有问题了（SciLab按钮不影响）。
• 添加测试项目，然后在引用中进行添加，找到COM中的RServerManager.exe、StatConnectorClnt.dll、StatConnectorSrv.exe添加进去，然后就可以进行编程了。
  

二、C#调用R编程
开始的几个小测试都没出现什么问题，但是突然运行附录中那段程序的时候就出现问题了。“System.Runtime.InteropServices.COMException”类型的未经处理的异常出现在TextR.exe中。其他信息: 对象为静态；不允许此项操作 (异常来自 HRESULT:0x8004000B (OLE_E_STATIC)).查了一下error code 0x800400B，发现对应的错误是 valuation stopped because of an error，于是就开始怀疑是不是R里面的代码出错。在R中尝试了一下下面的代码：

1. data(airmiles)
   
2. require(TSA)
   
3. model<-arima(airmiles,c(1,0,0))

复制代码
果然显示错误【Error in stats:::arima(x = x, order = order, seasonal = seasonal, xreg = xreg,: non-stationary AR part from CSS】. 于是下面将对代码的容错性进行改进。

1. data( airmiles )
   
2. require( TSA )
   
3. model <- try(arima(airmiles, c(1, 0, 0)), silent=T)

复制代码
再用inherits(model, "try-error")判断正确与否即可，如果结果显示True，那么就是函数使用出错；否则就可以正常数据结果了。 至此，终于成功的用C#调用R的时间序列函数，剩下了大把的时间。

三、附录

1. using System;
   
2. 
   
3. using System.Collections.Generic;
   
4. 
   
5. using System.Linq;
   
6. 
   
7. using System.Text;
   
8. 
   
9. using STATCONNECTORCLNTLib;
   
10. 
    
11. using StatConnectorCommonLib;
    
12. 
    
13. using STATCONNECTORSRVLib;
    
14. 
    
15. namespace TextR
    
16. 
    
17. {
    
18. 
    
19. class Program
    
20. 
    
21. {
    
22. 
    
23. static void Main(string[] args)
    
24. 
    
25. {
    
26. 
    
27. object o1;
    
28. 
    
29. StatConnector Sc1 = new StatConnector();
    
30. 
    
31. Sc1.Init("R");
    
32. 
    
33. Sc1.EvaluateNoReturn("data(airmiles)");//需先读取此数据，因为TSA包里面也有该同名数据
    
34. 
    
35. Sc1.EvaluateNoReturn("require(TSA)");
    
36. 
    
37. Sc1.EvaluateNoReturn("model<-arima(airmiles,c(1,0,0))");
    
38. 
    
39. Console.ReadKey();
    
40. 
    
41. }
    
42. 
    
43. }
    
44. 
    
45. }

复制代码