# NOT RUN {
states<-c('s1','s2')
inputSymbols<-c('a','b')
outputSymbols<-c(0,1)
transProb<-matrix(c(0.70,0.50, 0.30,0.50), nrow = 2, ncol = 2,byrow = TRUE)
emissionProb<-matrix(c(0.50,0.30, 0.40,0.60,.50,.70,.60,.40), nrow = 2, ncol = 4, byrow = TRUE)
initsa<-initsa(states,inputSymbols,outputSymbols,emissionProb,transProb)
n<-3
TOC.sampleData(initsa, n)
# }
Run the code above in your browser using DataLab