怎样通过Java调用自己编写的R函数？

Java调用R，就是使用JRI.jar中的Api，执行一条R语言命令，当然首先你要了解R语言的语法。\x0d\x0a1.JRI中主要的API\x0d\x0aRengine R引擎，通过它进行R语言的启动、运算、画图、关闭等功能。\x0d\x0a一个银大线程只能实例化一次，推荐使用单例模式。\x0d\x0a实例化代码：\x0d\x0aRengine engine = new Rengine(null,false,null)\x0d\x0aRengine.versionCheck() //R版本校验，返回true：版本校验通过 返回false：版本校验未通过\x0d\x0aengine.waitForR() //R加载校验，返回true：加载成功 返回false：加载失败\x0d\x0aengine.end() /好脊/结束R，在后续没有调用R的情况下使用，否则R将退出，不能继续使用R。\x0d\x0a\x0d\x0a2.REXP\x0d\x0aR计算结果表达式\x0d\x0aREXP rexp = engine.eval_r(String str) //执行R命令，返回结果REXP\x0d\x0arexp.asInt() rexp.asDouble() rexp.as.. //将REXP转成java类型\x0d\x0aengine.assign(String name,double d) //定义R变量，name为R中变量的名字\x0d\x0a\x0d\x0a以上大概了解了JRI的基本API，下锋袜竖面写个简单的例子。\x0d\x0a//求n个数的最大值\x0d\x0aRengine engine = new Rengine(null,false,null)\x0d\x0aint[] arr = new int[]{-1,2,1,-3,5,4,-2}\x0d\x0aengine.assign("x",arr)\x0d\x0aREXP rexp = engine.eval_r("max(x)")\x0d\x0aint max = rexp.asInt()\x0d\x0aSystem.out.println(max)\x0d\x0aengine.end()

1、下载wgethttp://mirror.bjtu.edu.cn/cran/src/base/R-3/R-3.0.1.tar.gz2、解压：tar-zxvfR-3.0.1.tar.gzcdR-3.0.13、安装(当然也可以跳过)yuminstallreadline-develyuminstalllibXt-devel./configure4、配置环境并编译安装#如果使用rJava需要加上--enable-R-shlib(这个我不需要，所以加入到后面)#如果3没安装,那么后面加上：--with-readline=no--with-x=no./configure--prefix=/usr/R-3.0.1make$$makeinstall5、配置环境变量并生效vi.bash_profileexportR_HOME=/usr/R-3.0.1exportPATH=.:$R_HOME/bin:$PATH#试环境变量生悄缓胡效source.bash_profile6、命令行测试[admin@JDsoftware]$RWARNING:ignoringenvironmentvalueofR_HOMERversion3.0.1(2013-05-16)--"GoodSport"Copyright(C)2013TheRFoundationforStatisticalComputingPlatform:x86_64-unknown-linux-gnu(64-bit)R是自由软件，不带任何启拦担保。在某些条件下你可以将其自由散布。用'license()'或'licence()'来看散布的详细条件。R是个合作计划，有许多人为之做出了贡献.用'contributors()'来看合作者的详细情况用'citation()'会告诉你如何在出版物中正确地引用R或R程序包。用'demo()'来看一些示范程序，用'help()'来阅读在线帮助文件，或用'help.start()'通过HTML浏览器来看帮助文件。用'q()'退出R.>q()7、创建脚本测试(t.R)cd/opt/script/Rvimt.R#!/path/to/Rscript#第一行x<哪脊-c(1,2,3)#R语言代码y<-c(102,299,301)model<-lm(y~x)summary(model)8、测试：执行脚本RCMDBATCH--args/opt/script/R/t.Rmore/opt/script/R/t.Rout#查看执行的结果或者第二种方式Rscript/opt/script/R/test.R#结果直接输出到终端

---