a<-c(1,1,2,3,5,8,13,21);a[-1]-a[-length(a)]
これって何を計算してるんですか？