作者jpt (You'll Never Walk Alone)
站內Statistics
標題[程式] R 迴圈設計
時間Mon Dec 26 15:44:52 2011
[軟體程式類別]:
R
[程式問題]:
迴圈
[軟體熟悉度]:
中(3個月到1年)
[問題敘述]:
我有一筆跟距離有關的數據, 我想要每隔一定的公尺就切成一個矩陣,
手動慢慢切矩陣已經寫好程式碼了,但是如果距離拉長,手動就會變得很繁瑣
想問有沒有辦法讓R可以自己切割,
我有想到可以用迴圈的方式,不過無從下手起 = =
程式範例是每個0.75公尺切成一個矩陣, 如果總長有50公尺就用重複67次
我想問能不能讓R做相同的事,
但是用比較簡潔的語法寫出來
謝謝各位!
[程式範例]:
setwd('d:/maize')
x6=read.csv('aa.csv', header=T)
xx=as.matrix(x6)
b1=xx[which(xx[,1]==0.75),]
b2=xx[which(xx[,1]==1.5),]
b3=xx[which(xx[,1]==2.25),]
b4=xx[which(xx[,1]==3),]
b5=xx[which(xx[,1]==3.75),]
b6=xx[which(xx[,1]==4.5),]
b7=xx[which(xx[,1]==5.25),]
b8=xx[which(xx[,1]==6),]
-----------------------------------------------------------------------------
--
有個希臘人在魚群如梭的海邊釣魚,釣到兩條就收竿回家.
外國遊客問:為什麼不多釣幾條? 他反問:多釣幾條幹什麼?
外國遊客說:多釣可以賣錢,然後買船,買房,開店,投資......
"然後呢?"他問.
"然後你就可以悠閒曬著太陽在海邊釣魚"外國遊客說.
"這我已經做到"他說
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.190.17
1F：推 clickhere:which 是多餘的. 12/26 15:49
2F：→ clickhere:lapply(seq(0,50,by=0.75),function(i) xx[xx[,1]==i,]) 12/26 15:51
3F：→ clickhere:done 12/26 15:51
4F：→ jpt:大感謝!! 12/26 15:54
5F：推 wertymin24:這是在做semivariance的東西嗎? 12/26 18:29
6F：→ jpt:不是耶 12/26 23:33