r语言求平均值

Python011

r语言求平均值,第1张

vec = vector(length =1000)

for(i in 1:1000)

   vec[i] = UR_FUNC()

mean(vec)

先把A、B的列宽设置好，用格式刷把其它列也刷一下，如果你的一页可以打印47行（是其它的数，就把公式里的47改一下）

在C1里写公式：

=INDIRECT(CHAR(65+MOD(COLUMN(B1),2))&(ROW(A1)+INT(COLUMN(B1)/2)*47))

按住C1的填充柄将公式右拖复制，再按住填充柄下拖复制。

选定打印区域，打印。

函数说明：

CHAR(65+MOD(COLUMN(B1),2)) 生成字符串 "A" 或 "B"（偶数列为"A"奇数列为"B"）。

(ROW(A1)+INT(COLUMN(B1)/2)*47 生成相应的行号。

INDIRECT() 生成字符串的引用。

mean_24 <- function(x){

k=NULL

for(i in 24:length(x))

{k[i-23]=sum(x[seq(i-23,i)])/24}

return(k)

}