Calculates a simple fitness score for symbolic molecular sequences. The toy score rewards moderate length and a few simple RNA-like motifs.
molecule_fitness(molecules)Numeric fitness values.
molecule_fitness(c("AUGC", "AAAAUUUU"))
#> [1] 0.699329 1.068731