求助大神编写程序

菲尔兹

我想实现以下任务：在R编辑器里输入或导入n个数据组成一个序列，执行一个已经编写好的函数，能够实现对此序列的同比增长的计算并且绘制出折线图；如果是输入或导入n组数据，同样能实现计算并且将几个折线图同时绘制到一个图表中！【还希望对R语言感兴趣的乐于助人的大神给予帮助】

wanghonghong2

1. growplot<-function(x,n){
   
2.   y=matrix(data=NA,nrow=(nrow(x)-1),ncol=n)
   
3.   for(t in 1:nrow(y)){
   
4.     for(j in 1:n){
   
5.       y[t,j]=(x[t+1,j]-x[t,j])/x[t,j]
   
6.     }
   
7.   }
   
8.   matplot(1:nrow(y),y[,1:ncol(y)],type="l")
   
9.   return(y)
   
10. }
    
11. x<-matrix(1:30,nrow=5,ncol=6)
    
12. growplot(x,ncol(x))

复制代码