Как заставить R.Net работать с VB.Net

Question

Я пытаюсь заставить R.Net работать с VB.NET. Я перевел официальный пример с C# на vb.net, но он не работает. Есть разные вещи, которые я пробовал. Сначала я использовал SetupHelper, как описано на официальной странице.

Imports System.IO

Namespace RDotNetSetup

Public Class SetupHelper
Public Shared Sub SetupPath()
    Dim oldPath = System.Environment.GetEnvironmentVariable("PATH")
    Dim rPath = If(System.Environment.Is64BitProcess, "C:\Program Files\R\R-3.0.2\bin\x64", "C:\Program Files\R\R-3.0.2\bin\i386")
    If Directory.Exists(rPath) = False Then
        Throw New DirectoryNotFoundException(String.Format("Could not found the specified path to the directory containing R.dll: {0}", rPath))
    End If
    Dim newPath = String.Format("{0}{1}{2}", rPath, System.IO.Path.PathSeparator, oldPath)
    System.Environment.SetEnvironmentVariable("PATH", newPath)
End Sub
End Class
End Namespace

а также

Imports RDotNet
Imports ConsoleApplication36.RDotNetSetup
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Module Module1

Sub Main()
SetupHelper.SetupPath()
Using engine As REngine = REngine.CreateInstance("RDotNet")
    engine.Initialize()
    Dim charVec As CharacterVector = engine.CreateCharacterVector({"Hello, R world!, .NET speaking"})
    engine.SetSymbol("greetings", charVec)
    engine.Evaluate("str(greetings)")
    Dim a As String() = engine.Evaluate("'Hi there .NET, from the R engine'").AsCharacter().ToArray()
    Console.WriteLine("R answered: '{0}'", a(0))
    Console.WriteLine("Press any key to exit the program")
    Console.ReadKey()
End Using
End Sub
End Module

Я не получаю сообщение об ошибке, используя отладчик на engine.Initialize мой тест останавливается (появляется зеленая стрелка Start).

Таким образом, я нашел другой пример, который должен (явно) работает на VB.Net

Imports RDotNet
Imports System.IO
Imports System.Linq

Module Module1

Sub Main()
    Dim envPath = System.Environment.GetEnvironmentVariable("PATH")
    Dim rBinPath = "C:\Program Files\R\R-3.0.2\bin\i386"
    System.Environment.SetEnvironmentVariable("PATH", envPath & Path.PathSeparator & rBinPath)
    Dim engine As REngine = REngine.CreateInstance("RDotNet")
    Dim group1 As NumericVector = engine.CreateNumericVector(New Double() {30.02, 29.99, 30.11, 29.97, 30.01, 29.99})
    engine.SetSymbol("group1", group1)
    ' Direct parsing from R script.
    Dim s = "group2 <- c(29.89, 29.93, 29.72, 29.98, 30.02, 29.98)"
    Dim group2 = engine.Evaluate(s).AsNumeric()
    Dim testResult As GenericVector = engine.Evaluate("t.test(group1, group2)").AsList()
    Dim p As Double = testResult("p.value").AsNumeric().First()
    Console.WriteLine("Group1: [{0}]", String.Join(", ", group1))
    Console.WriteLine("Group2: [{0}]", String.Join(", ", group2))
    Console.WriteLine("P-value = {0:0.000}", p)
End Sub
End Module

Похоже, у автора была та же проблема, и он просто оставил engine.initialize. Если я выполняю код, я получаю ошибку: "Значение вне диапазона" в Dim group1 As NumericVector = engine.CreateNumericVector(New Double() {30.02, 29.99, 30.11, 29.97, 30.01, 29.99}),

Кто-нибудь, кто мог бы помочь мне получить пример кода для VB.NET? И объясните мне, почему я не могу инициализировать.

К вашему сведению: я проверил путь и установил все необходимые ссылки.

Answer 1

Хорошо, несколько часов попыток и обсуждения позже, это работает. Что я сделал:

1. Я изменил.net 4.5 на.net 4.0
2. Я изменил настройки компилятора с "AnyCPU" на "x86"
3. Первая строка вSetupPath()' является: System.Environment.SetEnvironmentVariable("R_HOME", "C:\Program Files\R\R-3.0.2")