两个表 capital 和stocks先根据两表的股票代码是相通的的将两表合成一个总表，命名为zongbiao然后创建一个自定义功能m1<-function（x，n） x为所操作的列 n为分的段并分段求平均 具体操作要求就附件
怎么一次性把一整张表都做出来 不用一列列的改
求大神搭救

stocks<- read.csv(file = '季度涨跌幅.csv',na.strings = 0)

capital<- read.csv(file = '每股净资产BPS.csv',na.strings = 0)

zongbiao<- merge(stocks,capital,by='证券代码')

f<- quantile(zongbiao$BPS2003一季.元,probs=seq(0,1,length.out = 6), na.rm = T)

m1<-function(x,n) {

l<- length(x)

step<- floor(l/n)

k<- vector(length = n)

for(i in 0:(n-1)){

low<- i*step

up<- (i+1)*step

k[i+1]<- mean(x[low:up],na.rm = T)

}

return(k)

}

x<- zongbiao[zongbiao$BPS2003一季.元,]$季度涨跌幅2003一季

m1(x,5)