Rdo2 RPutVar("a",array(1,2,3,4));
  Ret:=Rdo2 REval("b=mean(laply(a,unlist))",Code); //Code=0则正确
  VarValue:=Rdo2 RGetVar("b");
  return varvalue;
说明：
RputVar传递给R一个array(1,2,3,4),，并且命名为a,R那边接受的是一个list,通过laply(a,unlist)转化成R里面的数组类型，进而求均值。最后通过RgetVar得到计算的值。通过这种形式，可以很容易的实现在在天软平台调用R的函数。注意这里由于安全原因R的支持服务器不授权不能被调用，因此需要使用RDO2来测试。