-- some functions useful for building clade models from alignents

-- Converts a residue probability (estimated by its relative frequency) to a
-- rounded, scaled, logarithm.

probToScore :: Double -> Double -> Int
probToScore scale prob = round (scale * (logBase 10 prob))
probToScore :: Double -> Double -> Int
probToScore scale prob = round (scale * (logBase 10 prob))
probToScore scale prob = round (scale * (logBase 10 prob))