Why R 是一款功能强大的能够进行统计研究数据分析的得力工具不仅免费开源, 而且算法更新速度快 Why R Excel 是最为广泛使用的交互式表格, 在商务办公领域有着无可比拟的市场占有率 VBA 是 Excel 高阶使用者的得力助手, 能够批量化的操作提供工作效率 MATLAB 是由 Ma

Size: px

Start display at page:

Download "Why R 是一款功能强大的能够进行统计研究数据分析的得力工具不仅免费开源, 而且算法更新速度快 Why R Excel 是最为广泛使用的交互式表格, 在商务办公领域有着无可比拟的市场占有率 VBA 是 Excel 高阶使用者的得力助手, 能够批量化的操作提供工作效率 MATLAB 是由 Ma"

疋郁僪
5 years ago
Views:

1 中国人民大学李青龙

Excel 高阶使用者的得力助手, 能够批量化的操作提供工作效率 MATLAB 是由 MathWorks

2 Why R 是一款功能强大的能够进行统计研究数据分析的得力工具不仅免费开源, 而且算法更新速度快 Why R Excel 是最为广泛使用的交互式表格, 在商务办公领域有着无可比拟的市场占有率 VBA 是 Excel 高阶使用者的得力助手, 能够批量化的操作提供工作效率 MATLAB 是由 MathWorks 公司推出的科学计算语言, 其向量化的思想与 R 相同 Why Excel Why VBA Why MATLAB

3 混合编程每种工具各有所长通过混合编程进行交互显得尤为重要搭配种类繁多, 而内容又不复杂, 几乎找不到制定的书籍通过搜索等方式学习混合编程需要很大的学习成本接口 Server 插件创建对象建立连接数据及变量传递在讲座中很容易当场消化理解代码传递运行断开连接

5 网址 :

6 Statconn Project 他们所做的项目不仅仅局限于 RExcel, 而是提供各种工具使得 R 可以与其他工具混合使用 Rexcel 只是这些工具之一 statconndcom server statconnws SOAP/http web service rcom R package RExcel SWord Thomas Baier Erich Neuwirth

7 IStatConnector 何为 COM? The Component Object Model 组件对象模型 statconndcom Server 相当于一个软件服务端, 可以使 R 与其他软件融合 rcom 是一个 R 包, 可以使 R 与其他应用程序同时交互运行建立 COM 对象初始化 R SetSymbol Evaluate,EvaluateNo Return GetSymbol RExcel 是一个利用用前两者使 Excel 能够调用 R 的加载项关闭 R 释放 COM 对象

9 MATLAB DEMO R_Obj=actxserver('StatConnectorSrv.StatConnector'); R_Obj=actxserver('StatConnectorSrv.StatConnec tor'); R_Obj.Init('R'); R_Obj.Init('R'); R_Obj.SetSymbol('e',rand([1,100])); R_Obj.SetSymbol('x',1:100); R_Obj.EvaluateNoReturn('y <- 3*x+e') R_Obj.EvaluateNoReturn('lm.sol <-lm(y~x)') R_Obj.EvaluateNoReturn('z<-lm.sol$coef') MATLABcoef=R_Obj.GetSymbol('z') R_Obj.SetSymbol('e',rand([1,10])); R_Obj.SetSymbol('x',1:10); R_Obj.EvaluateNoReturn('x<-as.vector(x)') R_Obj.EvaluateNoReturn('e<-as.vector(e)') R_Obj.EvaluateNoReturn('y <- 3*x+e') R_Obj.EvaluateNoReturn('lm.sol <-lm(y~x)') R_Obj.EvaluateNoReturn('z<-lm.sol$coef') R_Obj.Evaluate('as.vector(lm.sol$coef)') MATLABcoef=R_Obj.GetSymbol('z') MATLAB_Coef=R_Obj.Evaluate('lm.sol$coef') R_Obj.Evaluate('f<-is.vector(x)') R_Obj.Evaluate('f<-is.array(x)') %FALSE %TRUE R_Obj.Close

MATLAB 的 R-link MathWorks 公司在 2004 年的时候就推出了 R-link 这一工具, 提供 m 文件的免费下载 R-link 包括以下函数 : openr - Connect to an R server process. evalr - Run an R command. getrdata - Copies an R variable to MATLAB.

10 MATLAB 的 R-link MathWorks 公司在 2004 年的时候就推出了 R-link 这一工具, 提供 m 文件的免费下载 R-link 包括以下函数 : openr - Connect to an R server process. evalr - Run an R command. getrdata - Copies an R variable to MATLAB. putrdata - Copies MATLAB data to an R variable. closer - Close connection to R server process. 个人觉得除了可以使 MATLAB 编程中代码短一点, 并没有必要使用这个工具, 它只是把对 COM 对象的操作写到了函数里而已网址 : m/matlabcentral/fileexcha nge/5051-matlab-r-link

through Excel 是一本专门讲解 RExcel 的书, 不过没有 VBA 部分的讲解在 user 的会议

12 R 与 Excel R 与 Excel 的交互可以说是 statconn 最为重视的部分, 因为是最容易被广泛使用的工具官网上提供了一个 Demo 的教学视频, 可以保存成 MP4 的文件自己慢慢学习 R through Excel 是一本专门讲解 RExcel 的书, 不过没有 VBA 部分的讲解在 user 的会议 slides 里面也可以下载到一些有用的资料由于两位作者经常从事 Rexcel 及 statconn 的收费培训工作, 所以很多资料无法得到

13 准备工作为了使用 Rexcel, 需要在加载项中价值 Rexcel, 会看到 Rexcel 的插件菜单可以实现 Spreadsheet 与 R 的交互使用如果使用 VBA, 在 VBE 编辑器里直接拖动 RExcelVBALib 即可实现对 RExcel2007.xlam 的引用

14 R 与 VBA Public Sub StartRServer(Optional WarningMsgs As Boolean = False) Public Sub StopRServer(Optional suppresswarnings As Boolean = False) Public Sub PutDataframe(DFName As String, SheetRangeOrName As Variant, Optional WithRowNames As Boolean = False Optional RespectHidden As Boolean = True, Optional CheckDataframeName As Boolean = True, Optional UseRawDataTransfer As Boolean = False) Public Sub RRun(pString As String, Optional RcmdrExcelMenuUpdate As Boolean = False) Public Sub PutArray(ArrName As String, ByVal SheetRange As Range, Optional WithRowNames As Boolean = False, Optional WithColNames As Boolean = False) Public Sub GetDataframe(DFName As String, SheetRange As Range, Optional WithRowNames As Boolean = False, Optional CheckForEmpty As Boolean = False, Optional SaveUndo As Boolean = False, Optional SizeWarning As Boolean = False) Sub RunRCodeFromRange(commandRange As Range) Public Sub GetArray(RExpression As String, SheetRange As Range, Optional CheckForEmpty As Boolean = False, Optional SaveUndo As Boolean = False, Optional SizeWarning As Boolean = False, Optional WithRowNames As Boolean = False, Optional WithColNames As Boolean = False) Public Sub RunRFile(RFileName As String) Sub ExcelGetFocus() Sub InsertCurrentRPlot(Location As Range, Optional picname As String, Optional widthrescale As Double = -1, Optional heightrescale As Double = -1, Optional closergraph As Boolean = False) Sub GetRApply(RFunction As String, trgtrange As Range, ParamArray args() As Variant) Sub RunRCall(RProc As String, ParamArray args() As Variant)

VBA DEMO Option Explicit Sub Demo() Worksheets(1).Activate Rinterface.StartRServer Rinterface.RRun "e<-rnorm(100)" Rinterface.RRun "x<-c(1:100)" Rinterface.RRun "y = 3*x+e" Rinterface.

15 VBA DEMO Option Explicit Sub Demo() Worksheets(1).Activate Rinterface.StartRServer Rinterface.RRun "e<-rnorm(100)" Rinterface.RRun "x<-c(1:100)" Rinterface.RRun "y = 3*x+e" Rinterface.GetRApply "function()coef(lm(y~x))", Range("F2") Rinterface.RunRCall "function(x,y)plot(x,y,type=""o"")", Range("A2:A101"), Range("C2:C101") Rinterface.InsertCurrentRPlot Range("E5"), widthrescale:=0.5, heightrescale:=0.5, closergraph:=true End Sub 'Rinterface.StopRServer Rinterface.GetArray "x", Range("A2") Rinterface.GetArray "e", Range("B2") Rinterface.GetArray "y", Range("C2")

一课程基本情况课程名称工程应用数学 ( 计算机类 ) 编码 51611026 所属部门工业中心课程所属专业课程所属模块数学计算机类任课教师情况 ( 人数 ) 教授副教授讲师助教 3

一课程基本情况课程名称工程应用数学 ( 计算机类 ) 编码 51611026 所属部门工业中心课程所属专业课程所属模块数学计算机类任课教师情况 ( 人数 ) 教授副教授讲师助教 3 附表深圳职业技术学院文化育人示范课程建设项目申请书课程名称工程应用数学 ( 计算机类 ) 课程性质课程负责人所属专业所属部门基础课郑红数学工业中心填表日期 2015-12-28 深圳职业技术学院制二一五年十二月 1 一课程基本