Sha256: 581fd22fc734c7c3f35e274889c7bb210e9e8d9a04ca52de9cd0d6d3517135ca
Contents?: true
Size: 281 Bytes
Versions: 40
Compression:
Stored size: 281 Bytes
Contents
to_rna <- function(dna) {
dna_to_rna <- list(G="C", C="G", T="A", A="U")
func <- function(x) {
if (!(x %in% c("G","C","T","A"))) {
stop("invalid dna strand")
}
dna_to_rna[[x]]
}
paste(lapply(strsplit(dna, "")[[1]], FUN=func), collapse = "")
}
Version data entries
40 entries across 40 versions & 1 rubygems