Better print method for mutation models

[magnusdv]

pedmut::mutationModel("equal", alleles = 1:10, rate = list(female = 0.1, male = 0.2))
#> Female mutation matrix:
#>             1          2          3          4          5          6          7
#> 1  0.90000000 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111
#> 2  0.01111111 0.90000000 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111
#> 3  0.01111111 0.01111111 0.90000000 0.01111111 0.01111111 0.01111111 0.01111111
#> 4  0.01111111 0.01111111 0.01111111 0.90000000 0.01111111 0.01111111 0.01111111
#> 5  0.01111111 0.01111111 0.01111111 0.01111111 0.90000000 0.01111111 0.01111111
#> 6  0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.90000000 0.01111111
#> 7  0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.90000000
#> 8  0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111
#> 9  0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111
#> 10 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111 0.01111111
#>             8          9         10
#> 1  0.01111111 0.01111111 0.01111111
#> 2  0.01111111 0.01111111 0.01111111
#> 3  0.01111111 0.01111111 0.01111111
#> 4  0.01111111 0.01111111 0.01111111
#> 5  0.01111111 0.01111111 0.01111111
#> 6  0.01111111 0.01111111 0.01111111
#> 7  0.01111111 0.01111111 0.01111111
#> 8  0.90000000 0.01111111 0.01111111
#> 9  0.01111111 0.90000000 0.01111111
#> 10 0.01111111 0.01111111 0.90000000
#> 
#> Model: Equal 
#> Rate: 0.1 
#> 
#> Lumpable: Always 
#> Overall rate: NA 
#> * * * * * * * * * * *
#> Male mutation matrix:
#>             1          2          3          4          5          6          7
#> 1  0.80000000 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222
#> 2  0.02222222 0.80000000 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222
#> 3  0.02222222 0.02222222 0.80000000 0.02222222 0.02222222 0.02222222 0.02222222
#> 4  0.02222222 0.02222222 0.02222222 0.80000000 0.02222222 0.02222222 0.02222222
#> 5  0.02222222 0.02222222 0.02222222 0.02222222 0.80000000 0.02222222 0.02222222
#> 6  0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.80000000 0.02222222
#> 7  0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.80000000
#> 8  0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222
#> 9  0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222
#> 10 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222 0.02222222
#>             8          9         10
#> 1  0.02222222 0.02222222 0.02222222
#> 2  0.02222222 0.02222222 0.02222222
#> 3  0.02222222 0.02222222 0.02222222
#> 4  0.02222222 0.02222222 0.02222222
#> 5  0.02222222 0.02222222 0.02222222
#> 6  0.02222222 0.02222222 0.02222222
#> 7  0.02222222 0.02222222 0.02222222
#> 8  0.80000000 0.02222222 0.02222222
#> 9  0.02222222 0.80000000 0.02222222
#> 10 0.02222222 0.02222222 0.80000000
#> 
#> Model: Equal 
#> Rate: 0.2 
#> 
#> Lumpable: Always 
#> Overall rate: NA

^{Created on 2025-04-29 with reprex v2.1.1}