for(i in 1:1000)
vec[i] = UR_FUNC()
mean(vec)
如下：
数据集a有变量：x1，x2，x3等等
求各变量的均值方差，代码如下：
mean(a$x1) var(a$x1)。
mean(a$x2) var(a$x2)。
mean(a$x3) var(a$x3)。
……
如果有无效值，需要在括号内加入na.rm=T。
R是用于统计分析、绘图的语言和操作环境。
R是属于GNU系统的一个自由、免费、源代码开放的软件，它是一个用于统计计算和统计制图的优秀工具。
R可以看作贝尔实验室（AT&T BellLaboratories）的Rick Becker、John Chambers和Allan Wilks开发的S语言的一种实现。当然，S语言也是S-Plus的基础。
所以，两者在程序语法上可以说是几乎一样的，可能只是在函数方面有细微差别，程序十分容易地就能移植到一程序中，而很多一的程序只要稍加修改也能运用于R。
mean_24 <- function(x){k=NULL
for(i in 24:length(x))
{k[i-23]=sum(x[seq(i-23,i)])/24}
return(k)
}
