Q1
n <- 1:30
f <- c(1,1)
for (i in n) f <- c(f, f[length(f)-1]+f[length(f)])
for (i in 1:(length(f)-1)) print(f[i]/f[i+1])
從結(jié)果可以看到，貌似收斂到 0.618
Q2
1) answer <- c(3)
在for循環(huán)里：
#每次都從answer中取最后一項，并把計算結(jié)果存到answer中（作為最后一項）；
2) j =1時： answer <- c(answer, ( 7* answer[ 1 ] ) %% 31) ==> answer = c(3, 21)
3) j =2時：answer <- c(answer, ( 7* answer[ 2 ] ) %% 31) => answer = c(3,21, 21*7%%31)
--->23<-----
4) ...
16)j=15時： answer中有16個元素；

updateR()
在其他目錄下安裝 R ，再將舊版本保留的 library 目錄下的文件拷貝至新版本 library 目錄下，然后update.packages() ；或卸載 R ，把 R 裝到舊的目錄下，然后 update.packages()。

f[1]<-f[2]<-1  和 我的f<-c(1,1) 是等價的 ，僅僅是風格不同而已；
f[1] <- f[2] <- 1 可以大致表示成：
  1) f <- c(0, 1)
  2) f[1] <- 1    ==>   f = c(1,1) 
f[i] <- f[i-2] + f[i-1] 的意思是第三項是第一項和第二項的和 ,和我的也是風格不同，你的代碼更符合r的風格
r語言的數(shù)組可以增長，當下標超出當前的實際長度時，數(shù)組就增長到下標長度；
所以F[i] <- F[i-2] + F[i-1]的意思是：數(shù)組F長度增長1，增長的這項的取值是前兩項的和；
我的代碼把這個過程展開了，f <- c(f, f[length(f)-1]+f[length(f)])的意思是
f重新賦值，取值是這樣一個數(shù)組，這個數(shù)組包含原來的f全部，并在最后追加一項，這一項的值是數(shù)組f的最后兩項的和；其中l(wèi)ength(f)是取數(shù)組f的最后一項的下標，length(f)-1是倒數(shù)第二項的下標；c(數(shù)組，元素)的意思是把用數(shù)組和元素構(gòu)成一個新的數(shù)組，新數(shù)組的長度是舊數(shù)組的長度+1；

read.transactions("文件名",format="single",sep="\t",cols<-c(1,2),rm.duplicates=TRUE)其中format表示輸入數(shù)據(jù)的格式，transactions可以接受兩種數(shù)據(jù)格式，即single型和basket型single型表現(xiàn)為兩列，第一列為交易號，第二列為該交易中包含的一項，例如：1可樂1雪碧2芬達1美年達2王老吉basket型一行表示一條交易記錄，交易項之間用分隔符分開，分隔符在sep參數(shù)中設定：可樂雪碧美年達芬達王老吉