R 根据条件执行两个单独的代码

我对以下代码有问题（我是初学者，请对我放松）：

COW$id
COW=data.frame（tcode1=c（5,7,18,9），tcode2=c（4,15,8,10））
头（牛）
tcode1 tcode2
5      4
7     15
18      8
9     10
id=ifelse（奶牛）$tcode1@Freddie1，这可能有助于您在将来的机会中改进有关堆栈溢出的R问题。总是有其他方法（但不一定更快）使用逻辑：
id@CarlWitthoft，我不确定是否遵循了您的建议。我使用答案中的示例运行了代码，它返回了
numeric（0）
？。无论如何，我试图一步一步地提供帮助以R开头的OP（事实上，我也是一名初学者）。可能是因为我键入了大写字母“T”。请尝试修复该错误；我得到了
[1]4005 7015 8018 9010
@AndreSilva非常感谢你的帮助。这很有效。我问的时候有点犹豫，但我很高兴我这么做了！再次感谢
COW$id<- (COW$tcode1*1000 + COW$tcode2)
COW$id<- (COW$tcode2*1000 + COW$tcode1)

COW = data.frame(tcode1=c(5,7,18,9),tcode2=c(4,15,8,10))
head(COW)

  tcode1 tcode2
      5      4
      7     15
     18      8
      9     10

id = ifelse(COW$tcode1<COW$tcode2,
            COW$tcode1*1000 + COW$tcode2,
            COW$tcode2*1000 + COW$tcode1)

COW = data.frame(id=id,COW)
head(COW)

  id tcode1 tcode2
4005      5      4
7015      7     15
8018     18      8
9010      9     10