作者jpt (You'll Never Walk Alone)
站內Statistics
標題[程式] R 迴圈設計第二問
時間Wed Dec 28 00:19:24 2011
[軟體程式類別]:
R
[程式問題]:
迴圈
[軟體熟悉度]:
中(3個月到1年)
[問題敘述]
c1=xx[(xx[,1]==0.75),2]
mc1=matrix(0,1,42)
for(j in 1:length(c1))
{ mc1[1,j]=(c1[j]-qu[1,1])^2}
c2=xx[(xx[,1]==1.5),2]
mc2=matrix(0,1,42)
for(j in 1:length(c2))
{ mc2[1,j]=(c2[j]-qu[1,2])^2}
.
.
.
c23=xx[(xx[,1]==17.25),2]
mc23=matrix(0,1,42)
for(j in 1:length(c23))
{ mc23[1,j]=(c23[j]-qu[1,23])^2}
這是寫好的第一個迴圈, 我需要從c1做相同的事情,隨著0.75、1.5,...,17.25,
每隔0.75增加到17.25,進行23次相同的事,
mc1的矩陣大小會隨著從xx矩陣中取出來的數目改變,
我想要在這一個迴圈外在包一個迴圈上去,
進行這25次重複的動作
我嘗試寫迴圈,如下:
dist1=c(seq(0.75,18.75,by=0.75))
for (i in 1:length(dist1)){
for(j in 1:length(c[i])){
c[i]=xx[(xx[,1]==dist1[i]),2]
mc[i]=matrix(0,1,length(c[i]))
mc[i][1,j]=(c[i][j]-qu[1,i])^2
}
}
但是會出現錯誤
"錯誤在c[i] : object of type 'builtin' is not subsettable"
我不知道該如何解決這個錯誤 = =
還請各位前輩幫看哪裡該修改,謝謝
第一次嘗試寫迴圈,很多眉角不甚了解
請各位大大多指點了,謝謝
-----------------------------------------------------------------------------
--
有個希臘人在魚群如梭的海邊釣魚,釣到兩條就收竿回家.
外國遊客問:為什麼不多釣幾條? 他反問:多釣幾條幹什麼?
外國遊客說:多釣可以賣錢,然後買船,買房,開店,投資......
"然後呢?"他問.
"然後你就可以悠閒曬著太陽在海邊釣魚"外國遊客說.
"這我已經做到"他說
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.170.191.40
※ 編輯: jpt 來自: 118.170.191.40 (12/28 00:20)
1F：→ clickhere:dist1 <- seq(0.75,18.75,by=0.75) 12/28 02:53
2F：→ clickhere:c(...) 是多餘的, 請用 <- 取代所有的 = 12/28 02:54
3F：→ clickhere:c[i] 沒有初始化? c <- NULL 12/28 02:54
4F：→ clickhere:c[i][j] 為何 c 變成 list? 12/28 02:55
5F：→ clickhere:你要的是 c[i, j]? 還有 c 是一個 R 內定的函數名. 12/28 02:56
6F：→ jpt:謝謝!! 12/28 09:01