R語(yǔ)言升級(jí)會(huì)不會(huì)覆蓋舊的版本
5 回答
手掌心
TA貢獻(xiàn)1942條經(jīng)驗(yàn) 獲得超3個(gè)贊
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è)元素；
UYOU
TA貢獻(xiàn)1878條經(jīng)驗(yàn) 獲得超4個(gè)贊
updateR()
在其他目錄下安裝 R ，再將舊版本保留的 library 目錄下的文件拷貝至新版本 library 目錄下，然后update.packages() ；或卸載 R ，把 R 裝到舊的目錄下，然后 update.packages()。
白衣染霜花
TA貢獻(xiàn)1796條經(jīng)驗(yàn) 獲得超10個(gè)贊
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è)過程展開了，f <- c(f, f[length(f)-1]+f[length(f)])的意思是 f重新賦值，取值是這樣一個(gè)數(shù)組，這個(gè)數(shù)組包含原來的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；
桃花長(zhǎng)相依
TA貢獻(xiàn)1860條經(jīng)驗(yàn) 獲得超8個(gè)贊
#Q1 f = c(1,1) for(i in 2:30) { print(sprintf("i=%i, f[i-1]=%i, f[i]=%i, f[i-1]/f[i]=%.4f", i, f[i-1], f[i], f[i]/f[i-1])) f=c(f, (f[i-1]+f[i])) # sum of last two element in f } |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # Q2. 每一步都打印出值，你可以參照一下 > for ( j in 1:15) { + print(sprintf("j=%i, answer[j]=%i, 7*answer[j]=%i, 7*answer[j]%%31=%i", j, answer[j], 7*answer[j], (7*answer[j])%%31)) + answer <- c(answer, ( 7* answer[ j ] ) %% 31) + } [1] "j=1, answer[j]=3, 7*answer[j]=21, 7*answer[j]%31=21" [1] "j=2, answer[j]=21, 7*answer[j]=147, 7*answer[j]%31=23" [1] "j=3, answer[j]=23, 7*answer[j]=161, 7*answer[j]%31=6" [1] "j=4, answer[j]=6, 7*answer[j]=42, 7*answer[j]%31=11" [1] "j=5, answer[j]=11, 7*answer[j]=77, 7*answer[j]%31=15" [1] "j=6, answer[j]=15, 7*answer[j]=105, 7*answer[j]%31=12" [1] "j=7, answer[j]=12, 7*answer[j]=84, 7*answer[j]%31=22" [1] "j=8, answer[j]=22, 7*answer[j]=154, 7*answer[j]%31=30" [1] "j=9, answer[j]=30, 7*answer[j]=210, 7*answer[j]%31=24" [1] "j=10, answer[j]=24, 7*answer[j]=168, 7*answer[j]%31=13" [1] "j=11, answer[j]=13, 7*answer[j]=91, 7*answer[j]%31=29" [1] "j=12, answer[j]=29, 7*answer[j]=203, 7*answer[j]%31=17" [1] "j=13, answer[j]=17, 7*answer[j]=119, 7*answer[j]%31=26" [1] "j=14, answer[j]=26, 7*answer[j]=182, 7*answer[j]%31=27" [1] "j=15, answer[j]=27, 7*answer[j]=189, 7*answer[j]%31=3" > |
慕容708150
TA貢獻(xiàn)1831條經(jīng)驗(yàn) 獲得超4個(gè)贊
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可樂1雪碧2芬達(dá)1美年達(dá)2王老吉basket型一行表示一條交易記錄，交易項(xiàng)之間用分隔符分開，分隔符在sep參數(shù)中設(shè)定：可樂雪碧美年達(dá)芬達(dá)王老吉
- 5 回答
- 0 關(guān)注
- 1016 瀏覽
添加回答
舉報(bào)
0/150
提交
取消