|||
get_treat= function (x,in_split="\_",perl = T){
strsplit(x, in_split)[[1]][2]
}
treat = as.character(sapply(samples_in ,get_treat))
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-5-16 01:37
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社