如何进行ATCG配对？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，怎么样编写这样一个函数：输入任意长度的字母“ATCGTGACGGTA”，输出结果“TAGCACTGCCAT”.
原则是：A配T，C配G

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：ATC TCG 输出结果 tga tag

用plyr包里的mapvalues函数来解决吧，具体见如下代码。

1. x <- "ATCGTGACGGTA"
   
2. library(plyr)
   
3. atcg_sub <- function(x){
   
4.     ## need 'plyr' package
   
5.     orig <- c('A','T','C','G')
   
6.     corre <- c('T','A','G','C')
   
7.     res <- plyr::mapvalues(strsplit(x,'')[[1]],orig,corre)
   
8.     res <- paste0(res,collapse='')
   
9.     return (res)
   
10. }
    
11. atcg_sub(x)

复制代码