powered by
emissionMatrix(states, symbols)
HMMparams
states<-c(1,1,3,2,1,2,1,3) symbols<-c(4,1,3,1,4,4,4,2) B<-emissionMatrix(states,symbols) B
Run the code above in your browser using DataLab