两个表 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)