全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1247 7
2016-01-28
各位大神,
初学者求问code,现在我有个这样的table,7组pair

     row col
[1,]  30  28
[2,]  28  30
[3,]  43  42
[4,]  42  43
[5,]  52  49
[6,]  49  52
[7,]  54  53


我想计算多少组不同,但顺序有些是相反的,比如30&28 和28&30是一样的,43&42和42&43是一样的,所以7组里只有4个不同的pair。我想对table作判定并输出不同组的数目4。
我想用for和if套用作判定但一直有bug,求问code,感激不尽。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2016-1-28 08:47:14
接上面求问
dimerB是上面的table,以下是我自己写的,老是error,不知道哪里有问题大loop跑不起来,麻烦大家了。感谢

m=1:nrow(dimerB)
n=1:nrow(dimerB)
mi=length(m)
ni=length(n)
g=nrow(dimerB)
for (f in 1:ni) {
  for (e in 1:mi){
    if (dimerB[f,1]=dimerB[e,2]& dimerB[f,2]=dimerB[e,1]){
      print("yes")
      g=g-1
    }
  }
}
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-1-28 10:16:37
复制代码
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-1-28 10:27:23
楼主可以试一下下面的代码,应该能实现你的要求
复制代码
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-1-29 02:14:11
happyqj 发表于 2016-1-28 10:27
楼主可以试一下下面的代码,应该能实现你的要求
感谢回复!! 非常棒!这个是后来想到用的和你思路是一样的。
nB<-matrix(dimerB,nrow(dimerB))
nB1=t(apply(nB,1,sort))
nB2=unique(nB1)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-1-29 02:18:51
yywan0913 发表于 2016-1-28 10:16
哈哈,太感谢太感谢了,大神阿!
之前这个想复杂了,可以不用套那么多东西的!
感谢感谢
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群