“…T3=as.data.frame(PE0[4,c(7,11,15,19,23,27,31,35,39)]) T4=as.data.frame(PE0[4,c(8,12,16,20,24,28,29,36,40)]) plot(Month$`c(1,6,12,18,24,30,36,42,48)`, T1$`PE0[4, c(5, 9, 13, 17, 21, 25, 29, 33, 37)]`, type = "b",col=6,lwd=2,ylim=c(0,1),pch=16,xlab="Months",ylab="Probability", main = "From state 4") lines(Month$`c(1,6,12,18,24,30,36,42,48)`, T2$`PE0[4, c(6, 10, 14, 18, 22, 26, 30, 34, 38)]`, type = "b",col=3,lwd=2,pch=16) lines(Month$`c(1,6,12,18,24,30,36,42,48)`, T3$`PE0[4, c(7, 11, 15, 19, 23, 27, 31, 35, 39)]`, type = "b",col=4,lwd=2,pch=16) lines(Month$`c(1,6,12,18,24,30,36,42,48)`, T4$`PE0[4, c(8, 12, 16, 20, 24, 28, 29, 36, 40)]`, type = "b",col=2,lwd=2,pch=16) legend(40, 1, legend=c("To state 1", "To state 2","To state 3","To state 4"), col=c(6,3,4,2), lty=1:2, cex=0.8) __________________________________________________________________________________________…”