R語言升級會不會覆蓋舊的版本
5 回答
手掌心
TA貢獻1942條經(jīng)驗 獲得超3個贊
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個元素；
UYOU
TA貢獻1878條經(jīng)驗 獲得超4個贊
updateR()
在其他目錄下安裝 R ，再將舊版本保留的 library 目錄下的文件拷貝至新版本 library 目錄下，然后update.packages() ；或卸載 R ，把 R 裝到舊的目錄下，然后 update.packages()。
白衣染霜花
TA貢獻1796條經(jīng)驗 獲得超10個贊
f[1]<-f[2]<-1 和 我的f<-c(1,1) 是等價的 ，僅僅是風(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] 的意思是第三項是第一項和第二項的和 ,和我的也是風(fēng)格不同，你的代碼更符合r的風(fēng)格 r語言的數(shù)組可以增長，當(dāng)下標(biāo)超出當(dāng)前的實際長度時，數(shù)組就增長到下標(biāo)長度； 所以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的最后一項的下標(biāo)，length(f)-1是倒數(shù)第二項的下標(biāo)；c(數(shù)組，元素)的意思是把用數(shù)組和元素構(gòu)成一個新的數(shù)組，新數(shù)組的長度是舊數(shù)組的長度+1；
桃花長相依
TA貢獻1860條經(jīng)驗 獲得超8個贊
#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貢獻1831條經(jīng)驗 獲得超4個贊
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ù)中設(shè)定：可樂雪碧美年達芬達王老吉
- 5 回答
- 0 關(guān)注
- 1002 瀏覽
添加回答
舉報
0/150
提交
取消