发帖
雷达卡
准备：
1.R的程序包，注意一定要是2.11版，版本太高，不支持在VBnet里面运行（R-2.11.1-win32.exe）。当然，版本太低也不行
下载地址是：http://cran.r-project.org/bin/windows/base/old/2.11.1/R-2.11.1-win32.exe
2.R的COM库，下载的地址是：http://ftp.ctex.org/mirrors/CRAN/contrib/extra/dcom/R_Scilab_DCOM3.0-1B5.exe
3.最重要的一步，要下载一个rscproxy 的R包，很多人就是因为没有下载这个动态链接库（rscproxy.dll）而无法在VBnet（或C#）里调用（没有下载这个库会出现“异常来自 HRESULT:0x80040013”这样的错误提示）。下载地址是：http://ftp.ctex.org/mirrors/CRAN/bin/windows/contrib/r-release/rscproxy_1.3-1.zip。
安装R，然后安装R的COM库，然后将rscproxy 包里面的rscproxy.dll复制到R的安装目录下的Bin文件夹下。
然后就可以（StatConnControls.ocx，StatConnectorClnt.dll和StatConnectorSrv.exe），见下图
然后，在模块里添加引用：
Imports STATCONNECTORCLNTLib
Imports StatConnectorCommonLib
Imports STATCONNECTORSRVLib
就可以调用函数了。
以下下是一个简单的启动示例（在module里）
Imports STATCONNECTORCLNTLib
Imports StatConnectorCommonLib
Imports STATCONNECTORSRVLib
Imports System.Runtime.InteropServices
Public Module StatRModule
Private RApp As StatConnector
Public Sub RInitialize()
''''''''''''''''''''''启动后台R''''''''''''''''''''''''''
Try
If RApp Is Nothing Then
RApp = New STATCONNECTORSRVLib.StatConnector()
End If
RApp.Init("R")
Catch exR As COMException
MsgBox("程序错误：" + exR.ToString, MsgBoxStyle.Critical, "错误")
RApp = Nothing
End Try
End Sub
Public Sub RTerminate()
''''''''''''''''''''''关闭后台R''''''''''''''''''''''''''
If RApp Is Nothing Then
Exit Sub
Else
RApp.Close()
RApp = Nothing
End If
End Sub
Public Function tDistBound(ByVal nSample As Integer, ByVal dSig As Double) As Double
RInitialize()
RApp.SetSymbol("nSample", nSample)
RApp.SetSymbol("dSig", dSig)
RApp.Evaluate("tDistBound<-qt(1-dSig/2, nSample - 2) * sqrt(nSample / (nSample - 1))")
tDistBound = CType(RApp.GetSymbol("tDistBound"), Double)
RTerminate()
End Function
C# 的引用可以参见以下文章
http://www.codeproject.com/KB/cs/RtoCSharp.aspx
～
京公网安备 11010802022788号
