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 :
et l'erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.59042082Merci d'avance !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Error in f[state, 1] = log(hmm$startProbs[state] * hmm$emissionProbs[state, : l'argument de remplacement est de longueur nulle
Partager