Wrong conversion of absorbing states

[Enchufa2]

A simple example of the conversion of a generator matrix with an absorbing state to the corresponding transition matrix of the embedded chain:

library(markovchain)

Q <- matrix(c(-1, 1, 0, 0), byrow=TRUE, nrow=2)
generatorToTransitionMatrix(Q)
#>      [,1] [,2]
#> [1,]    0    1
#> [2,]  NaN    0

For absorbing states, NaN should be 0s, and 0s should be 1s. So the second row should be 0 1.