Add Sampleable instance for IndelsOnTree

bredelings · Oct 17, 2023 · 43e1235 · 43e1235
1 parent 7905082
commit 43e1235
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/haskell/Probability/Distribution/PairwiseAlignment.hs b/haskell/Probability/Distribution/PairwiseAlignment.hs
@@ -51,3 +51,9 @@ we could do something like:
 
 The problem with this is that we can only sample the alignments for branches going away from the root.
 -}
+
+instance Dist d => HasAnnotatedPdf (IndelsOnTree t d) where
+    annotated_densities dist _ = undefined
+
+instance (IOSampleable d, Result d ~ PairwiseAlignment, HasRoot t, HasBranchLengths t) => Sampleable (IndelsOnTree t d) where
+    sample dist = RanDistribution2 dist do_nothing