for(i in 1:1000)
vec[i] = UR_FUNC()
mean(vec)
data就是你的这个表日期格式为:YYYYmmdd
library(plyr)
result <- ddply(data,.(month = substr(date,5,6)),summarize,ma = mean(a),
mb = mean(b),
mc = mean(c))
for(i in 1:1000)
vec[i] = UR_FUNC()
mean(vec)
data就是你的这个表日期格式为:YYYYmmdd
library(plyr)
result <- ddply(data,.(month = substr(date,5,6)),summarize,ma = mean(a),
mb = mean(b),
mc = mean(c))