# NOT RUN {
# list of dwell-time probability vectors
# (vector elements should not sum to one)
d_r<-list()
d_r[[1]]<-c(dgeom(0:9,0.2))
d_r[[2]]<-c(dgeom(0:9,0.1))
# tranistion probability matrix:
Gamma<-tpmHMM(N=2,omega=matrix(c(0,1,1,0),2,2),
d_r=d_r,R_vec=sapply(d_r,length))
# }
Run the code above in your browser using DataLab