powered by
simSegData(nseg=10, J=3, soj, emis, seed=1234, toPlot=FALSE)
soj<-list(type='pois', lambda=c(200, 100, 10)) emis<-list(type='pois', lambda=1:3) simSegData(soj=soj, emis=emis)
Run the code above in your browser using DataLab