如何让R运行得更快些？

carisma

我需要做几个循环，可是运行速度太慢了。有改进方法吗？谢谢~~

R code：

n.rf<-500

n.r<-500

for (ref in 1:n.r){

a<-runif(1)

for (re in 1:n.rf){

mu_m <- (replicate(1000 ,runif(4,a ) ))

}}

doctorjxd

这么多循环次数，都不会闪电完成的。

试试 Rcpp 包和 inline 包。

试了一下，你的代码Rcpp的incline嵌入处理后，比R的原始编码快30%左右。

也没快太多。

或者考虑调用compiler包，编译R代码（估计也快不了多少）

或者干脆用c++调用boost，或者c++11标准库的 uniform_real_distribution

直接实现（这个速度有望翻番），但是考虑到你查资料的时间，可能还是不划算。

cucUserR

?lapply

carisma

回复第2楼的 doctorjxd：

不好意思。我忘了。

JK=4

carisma

回复第3楼的 cucUserR：

谢谢~~我去查一下lapply。

好像没有快呀~~

carisma

回复第2楼的 doctorjxd：

如何用Rcpp的incline嵌入处理？能把你的code写一下吗？要是能快30%也不错呀。

谢谢~~

doctorjxd

楼主别折腾了，干脆调用compiler包。

用cmpfun编译一下你自己的函数，再调用，速度也有提升。一行语句，速度提升一大步，省时又省力。

非要用Rcpp的话，可以参考去年R会议的PPT：

http://cos.name/wp-content/uploads/2012/05/13-huangjinshan-Rcpp.pdf

之后再看看Rcpp的文档，先读读里面的Rcpp-introduction.pdf

<br />
library("Rcpp")<br />
library("inline")</p>
<p>mysrc = '<br />
IntegerVector a,mu;<br />
for(int i=0; i<500; i++)<br />
{<br />
    a=runif(1);<br />
    for(int ii=0; ii<500*1000; ii++)<br />
    {<br />
       mu=runif(4, a[0]);<br />
    }<br />
}<br />
CharacterVector mystr(1);<br />
mystr[1]=\"算完了，好累。楼主想返回什么呢？\";<br />
return mystr;<br />
'</p>
<p>myfun = cxxfunction(signature(), mysrc, plugin="Rcpp")<br />
myfun()<br />

</p>