[程式] R 迴圈設計第二問
[軟體程式類別]:
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)
→
12/28 02:53, , 1F
12/28 02:53, 1F
→
12/28 02:54, , 2F
12/28 02:54, 2F
→
12/28 02:54, , 3F
12/28 02:54, 3F
→
12/28 02:55, , 4F
12/28 02:55, 4F
→
12/28 02:56, , 5F
12/28 02:56, 5F
→
12/28 09:01, , 6F
12/28 09:01, 6F