[程式] R 迴圈設計

看板Statistics作者 (You'll Never Walk Alone)時間14年前 (2011/12/26 15:44), 編輯推噓2(204)
留言6則, 3人參與, 最新討論串1/1
[軟體程式類別]: 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

12/26 15:49, , 1F
which 是多餘的.
12/26 15:49, 1F

12/26 15:51, , 2F
lapply(seq(0,50,by=0.75),function(i) xx[xx[,1]==i,])
12/26 15:51, 2F

12/26 15:51, , 3F
done
12/26 15:51, 3F

12/26 15:54, , 4F
大感謝!!
12/26 15:54, 4F

12/26 18:29, , 5F
這是在做semivariance的東西嗎?
12/26 18:29, 5F

12/26 23:33, , 6F
不是耶
12/26 23:33, 6F
文章代碼(AID): #1E-2Nt4n (Statistics)