Search the Community

R is a free software environment for statistical computing and graphics. It compiles and runs on a wide variety of UNIX platforms, Windows and MacOS. Home page: http://www.r-project.org/ International R Users Meeting useR! 2012, will take place at Vanderbilt University, Nashville Tennessee, USA, June 12-15, 2012 After installation R package you can write AutoIt scripts with help application connector to provide integration solutions R & AutoIt. See more about it here: http://rcom.univie.ac.at/ download of application connector from here: http://rcom.univie.ac.at/download/current/statconnDCOM.latest.exe Scripts: 1. addServer.au3 ;========================================= ; create and init an instance of RServerManager on the local machine dim $oServerManager dim $ServerCount dim $oItem MsgBox(0,"","addServerManager: add server") if $CmdLine[0] <> 1 then MsgBox(0,"","addServerManager: create RServerManager") else MsgBox(0,"","addServerManager: create RServerManager") $oServerManager = ObjCreate("RServerManager.ServerPool") $ServerCount = $oServerManager.Count MsgBox(0,"","addServerManager: " & $ServerCount & " servers in pool") MsgBox(0,"","addServerManager: initializing server and adding to pool") $oServer = ObjCreate("StatConnectorSrv.StatConnector") $oServer.Init("R") $oItem = $oServerManager.Add($oServer,$CmdLine[0]) endif2. dumpServerManager.au3 ;=========================== ; create and init an instance of RServerManager on the local machine dim $oServerManager dim $ServerCount MsgBox(0,"","dumpServerManager: dump contents of RServerManager") MsgBox(0,"","dumpServerManager: create RServerManager") $oServerManager = ObjCreate("RServerManager.ServerPool") $ServerCount = $oServerManager.Count MsgBox(0,"","dumpServerManager: " & $ServerCount & " server keys in pool")3. initServerManager.au3 dim $oServerManager dim $ServerCount dim $oServer MsgBox(0,"","initServerManager: initialize servers") MsgBox(0,"","initServerManager: create RServerManager") $oServerManager = ObjCreate("RServerManager.ServerPool") $ServerCount = $oServerManager.Count MsgBox(0,"","initServerManager: " & $ServerCount & " servers in pool") MsgBox(0,"","initServerManager: initializing server and adding to pool") $oServer = ObjCreate("StatConnectorSrv.StatConnector") $oServer.Init("R") $oServerManager.Add($oServer,"R") MsgBox(0,"","initServerManager: waiting for termination") MsgBox(4096, "", "The RServerManager will terminate after 10 seconds or select the OK button.", 10)4. Plot.au3 ;create and init an instance of R on the local machine dim $oServer $oServer = ObjCreate("StatConnectorSrv.StatConnector") $oServer.Init("R") ;compute a simple expression (10 random numbers) $oServer.EvaluateNoReturn("x<-rnorm(10)") ;and plot the result $oServer.EvaluateNoReturn("plot(x)") Enjoy...