Error in if (em.con$reltol < resEM$change) { : argument is of length zero about seqhmm HOT 5 CLOSED

df = data.frame('event_1' = c(2,2,2,2,2),
                'event_2' = c(4,9,5,8,4),
                'event_3' = c(9,4,9,4,8),
                'event_4' = c(8,8,8,9,6),
                'event_5' = c(6,6,4,6,9),
                'event_6' = c(5,1,6,5,1),
                'event_7' = c(1,7,1,1,5),
                'event_8' = c(7,5,7,7,7),
                'event_9' = c(3,3,3,3,3))

pheno_seq <- seqdef(df, start = 1)

sc_initmod <- build_mm(observations = pheno_seq)

sc_fit <- fit_model(sc_initmod, em_step = TRUE, global_step = TRUE, local_step = TRUE, 
                    control_em = list(print_level = 2, restart = list(times = 10, reltol = 1e-20)))

sc_fit$logLik

iter: 1 logLik: -38.901 relative change: 1
Error in if (em.con$reltol < resEM$change) { : argument is of length zero
In addition: There were 11 warnings (use warnings() to see them)

 sc_initmod$transition_probs
    to
from   1 2   3   4   5   6   7   8   9
   1 0.0 0 0.0 0.0 0.2 0.0 0.8 0.0 0.0
   2 0.0 0 0.0 0.4 0.2 0.0 0.0 0.2 0.2
   3 0.0 0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
   4 0.0 0 0.0 0.0 0.0 0.2 0.0 0.4 0.4
   5 0.4 0 0.2 0.0 0.0 0.0 0.2 0.0 0.2
   6 0.4 0 0.0 0.0 0.4 0.0 0.0 0.0 0.2
   7 0.0 0 0.8 0.0 0.2 0.0 0.0 0.0 0.0
   8 0.0 0 0.0 0.4 0.0 0.6 0.0 0.0 0.0
   9 0.2 0 0.0 0.2 0.0 0.2 0.0 0.4 0.0