DNA序列 转换成 RNA序列

rm(list = ls())
rna = readLines("sample_data.txt")
rna
chartr("T","U",rna)  # 或者用 gsub("T","U",rna)
data_rna = chartr("T","U",rna)
data_rna
write(data_rna,file = "data.txt")