作者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