вот мой надуманный набор данных / логика для построения markovchain
sequences <- list(
c("Opened", "2709342", "END"),
c("Opened", "3067630", "END")
)
sequencesMarkovchainFit <- function(sequences){
# Create a continuous sequence string with each sequence having START and END
#
# sequences <- list( c("A"),
# c("B"))
# sequence = c("START", "A", "END", "START", "B", "END" ...)
sequence <- c ()
for (i in 1:length(sequences)){
#sequence <- c(sequence, "START", unlist(sequences[i]), "END")
sequence <- c(sequence, "START", unlist(sequences[i]))
}
fit <- markovchainFit(data=sequence)
chain <- as(fit$estimate, "markovchain")
return(chain)
}
sequencesMC <- sequencesMarkovchainFit(sequences)
plot(sequencesMC, main="Selected Sequences T (transition matrix)")
, и полученный график все еще имеет индексы (то есть 0,1,2 ..) вместо желаемых состояний (имен)
участок марковчейна после создания с помощью markovchainFit