
Hi List,



Is there any way to pass on directly VBA variable content into a R variable? 

on windows XP & using R 2.12.0
I have installed RExcel addin (with associated D(COM)) 
>> It function fine when trying to pass Excel Range to R but I failed (sorry if it is only my own limitation, search till now unsuccessful) to find out how to pass directly VBA array into R

Below an example - sorry it is VBA - including a very simple call to R
>> The below code function perfectly, my question is: How could I pass directly DblArray into R variable "test"
>> So it would be something like: Call RInterface.PutArray("test", DblArray)

>> But as could be expected I have an error because the RInterface.PutArray() is expecting an Excel range as second argument


Any hint very appreciated!


Thanks & regards,
Julien Cuisinier




Sub Demo1()


Dim i                           As Long
Dim j                           As Long
Dim Elements                    As Long

Dim Start                       As Double
Dim Length                      As Double
Dim DblMedian                   As Double
Dim DblArray()                 As Double

Dim RngData                     As Range
Dim RngData2                    As Range

Set RngData = Range("A1:A10")

Set RngData2 = Range("B1")

Elements = 100
ReDim DblArray(0 To Elements - 1)
For i = 0 To Elements - 1
    DblArray(i) = Rnd()
Next i


Start = Timer
    Call RInterface.StartRServer
    Call RInterface.PutArray("test", RngData)
    Call RInterface.RRun("z<-median(test)")
    Call RInterface.GetArray("z", RngData2)
    Call RInterface.StopRServer
    
'Range("B1") = RngData2
Length = Length + Timer - Start
Debug.Print Length


End Sub


 		 	   		  
	[[alternative HTML version deleted]]

