EDMModelPhylobayesSpec.hs

-- |
-- Module      :  ELynx.Import.MarkovProcess.EDMModelPhylobayesSpec
-- Copyright   :  (c) Dominik Schrempf 2020
-- License     :  GPL-3.0-or-later
--
-- Maintainer  :  dominik.schrempf@gmail.com
-- Stability   :  unstable
-- Portability :  portable
--
-- Creation date: Tue Jan 29 12:26:49 2019.
module ELynx.Import.MarkovProcess.EDMModelPhylobayesSpec
  ( spec,
  )
where

import ELynx.Import.MarkovProcess.EDMModelPhylobayes
import ELynx.Tools
import Numeric.LinearAlgebra (fromList)
import Test.Hspec

componentsFilePhylobayes :: FilePath
componentsFilePhylobayes = "data/EDMDistsPhylobayes.txt"

testComponents :: [EDMComponent]
testComponents =
  [ ( 0.3690726059430788,
      fromList
        [ 0.0746116859730418,
          0.0069967050701822,
          0.0792378063875672,
          0.1103113280153337,
          0.0084753541579630,
          0.0420976864270153,
          0.0359995156499732,
          0.0176053658394712,
          0.1140305648643406,
          0.0306656386818212,
          0.0143923751236750,
          0.0805907035564168,
          0.0136556223619922,
          0.0854829959418090,
          0.0907856579607629,
          0.0955855590305961,
          0.0585231905811694,
          0.0276404860443685,
          0.0024024774767569,
          0.0109092808557433
        ]
    ),
    ( 0.28019163862430846,
      fromList
        [ 0.0379912838025543,
          0.0085917039746034,
          0.0016977963056655,
          0.0029780993213938,
          0.0369086689176780,
          0.0051768704164023,
          0.0027496797757250,
          0.2650202435999584,
          0.0035114356263963,
          0.2705514660371282,
          0.0634852940497682,
          0.0036512748214048,
          0.0030666766077233,
          0.0046946399741140,
          0.0039700770877914,
          0.0137110414055372,
          0.0286159990065166,
          0.2351259204392804,
          0.0018121721806795,
          0.0066896566496796
        ]
    ),
    ( 0.23699880225859807,
      fromList
        [ 0.2699288544670601,
          0.0262695884363299,
          0.0119030286238640,
          0.0143694121662917,
          0.0113341089668980,
          0.1028437949687162,
          0.0097376980401260,
          0.0250662077996463,
          0.0137176088824149,
          0.0302792626622677,
          0.0151697996735645,
          0.0255041240872322,
          0.0194279535358810,
          0.0155053062932145,
          0.0146597721555602,
          0.2261838872893110,
          0.1040919090386891,
          0.0534187313840882,
          0.0024899475832214,
          0.0080990039456234
        ]
    ),
    ( 0.11373695317401472,
      fromList
        [ 0.0325183213724537,
          0.0153142424565790,
          0.0072297704620506,
          0.0101526783552517,
          0.2682049848838039,
          0.0107298905683658,
          0.0420960604309369,
          0.0414751553493385,
          0.0131985876449809,
          0.1152120909184748,
          0.0300072241461393,
          0.0173787316286536,
          0.0062421326435569,
          0.0173124967325860,
          0.0181776303531701,
          0.0328778350287987,
          0.0250382111285986,
          0.0437257936268565,
          0.0258103804738129,
          0.2272977817955918
        ]
    )
  ]

spec :: Spec
spec =
  describe "phylobayes" $
    it "parses a text file with stationary distributions in phylobayes format" $
      do
        cs <- parseFileWith phylobayes componentsFilePhylobayes
        cs `shouldBe` testComponents