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)

Arguments

molecules

Character vector of symbolic molecular sequences.

Value

Numeric fitness values.

Examples

molecule_fitness(c("AUGC", "AAAAUUUU"))
#> [1] 0.699329 1.068731