Problème d'implementation d'un Baum Welch (HMM)

Bonjour, je n'arrive pas à implementer un Baum Welch a partir de données, je reçois un message d'erreur que je ne comprends pas.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
library(HMM)
 
states <- c("A","I")
emissions <- c("1","0")
initProb <- c(0.9, 0.1)
transProb <- t(matrix(c(15/16, 1/8, 1/16, 7/8), 2))
emissionProb <- matrix(c(0.7, 0.1, 0.3, 0.9), 2)
hmm = initHMM(states, emissions, initProb, transProb, emissionProb)
bw = baumWelch(hmm,acc_user_data1, maxIterations = 100)
 
head(acc_user_data1)
[1] 0.06785802 1.29581290 4.85183946 3.37728070 1.35010961 0.59042082

et l'erreur:

Code:

1
2
Error in f[state, 1] = log(hmm$startProbs[state] * hmm$emissionProbs[state,  : 
  l'argument de remplacement est de longueur nulle

Merci d'avance !