R语言代码

第4章R语言代码zsq<-function (n){ a〈-numeric(n)a[l]<-la[2]<-lfor (i in 3:n) (a[i]<-a[i-l]+a[i-2]}return(a)}