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中取最后一項(xiàng)，并把計(jì)算結(jié)果存到answer中（作為最后一項(xiàng)）；
2) j =1時(shí)： answer <- c(answer, ( 7* answer[ 1 ] ) %% 31) ==> answer = c(3, 21)
3) j =2時(shí)：answer <- c(answer, ( 7* answer[ 2 ] ) %% 31) => answer = c(3,21, 21*7%%31)
--->23<-----
4) ...
16)j=15時(shí)： answer中有16個(gè)元素；

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

f[1]<-f[2]<-1  和 我的f<-c(1,1) 是等價(jià)的 ，僅僅是風(fēng)格不同而已；
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] 的意思是第三項(xiàng)是第一項(xiàng)和第二項(xiàng)的和 ,和我的也是風(fēng)格不同，你的代碼更符合r的風(fēng)格
r語(yǔ)言的數(shù)組可以增長(zhǎng)，當(dāng)下標(biāo)超出當(dāng)前的實(shí)際長(zhǎng)度時(shí)，數(shù)組就增長(zhǎng)到下標(biāo)長(zhǎng)度；
所以F[i] <- F[i-2] + F[i-1]的意思是：數(shù)組F長(zhǎng)度增長(zhǎng)1，增長(zhǎng)的這項(xiàng)的取值是前兩項(xiàng)的和；
我的代碼把這個(gè)過(guò)程展開了，f <- c(f, f[length(f)-1]+f[length(f)])的意思是
f重新賦值，取值是這樣一個(gè)數(shù)組，這個(gè)數(shù)組包含原來(lái)的f全部，并在最后追加一項(xiàng)，這一項(xiàng)的值是數(shù)組f的最后兩項(xiàng)的和；其中l(wèi)ength(f)是取數(shù)組f的最后一項(xiàng)的下標(biāo)，length(f)-1是倒數(shù)第二項(xiàng)的下標(biāo)；c(數(shù)組，元素)的意思是把用數(shù)組和元素構(gòu)成一個(gè)新的數(shù)組，新數(shù)組的長(zhǎng)度是舊數(shù)組的長(zhǎng)度+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)為兩列，第一列為交易號(hào)，第二列為該交易中包含的一項(xiàng)，例如：1可樂(lè)1雪碧2芬達(dá)1美年達(dá)2王老吉basket型一行表示一條交易記錄，交易項(xiàng)之間用分隔符分開，分隔符在sep參數(shù)中設(shè)定：可樂(lè)雪碧美年達(dá)芬達(dá)王老吉