我想要计算所有股票一定时间内的移动平均，自己的想法是先用split对数据框按股票名分割成一个list，每个元素就是一个股票的数据框，然后对这个list用lapply进行运算。但是实际运行会报错，我猜可能是在这个过程中函数要将其转为时间序列但无法在list中实现，请问有没有什么解决或者替代办法。


附上代码和报错：rs<-split(rs[-1],rs$stockcode)
                            rsi<-lapply(rs,function(cprice) sma(cprice,5))

                            Error in runSum(x, n) : Invalid 'n'[/td][/tr]