Üç durumlu Markov zincir çizimi oluşturma

Question

Aşağıdakileri içeren aşağıdaki veri çerçevelerini kullanıyorum: kızgın, sakin ve yoruldum. Aşağıdaki veri çerçevesi, bir devletin diğerine geçişi için ayrı ayrı durumlar sunmaktadır.

pre<-cbind(c(rep("tired",100),rep("angry",100),rep("calm",100))) 
post<-cbind(c(rep("tired",50),rep("angry",70),rep("calm",100),rep("tired",80))) 
df<-cbind(pre,post) 
df<-as.data.frame(df) 
colnames(df)<-c("pre","post") 

Ben de böyle "oyun alanı" olarak adlandırılır ve bakar olan üç ülke için de Markov zincir arsa buidling olup başarmak istiyoruz Ne: Ben R yapacağını nasıl

?

Şimdiden teşekkürler!

Answer 1

diagram adresindeki plot yöntemini kullanarak markovchain paketini kullanabiliriz.

edelim ilk hesaplama senin df

states<-c("tired","angry","calm") 

probsCase<-function(i,j){ 
    sum(as.character(df$pre)==states[i] & as.character(df$post)==states[j])/sum(as.character(df$pre)==states[i]) 
} 

transitionMatrix<-outer(1:3,1:3,Vectorize(probsCase)) 
colnames(transitionMatrix)<-states 
rownames(transitionMatrix)<-states 

geçiş olasılık matrisi Şimdi matriksi başlatmak ve çizmek için markovchain kullanmak

library(markovchain) 
markovChain <- new("markovchain", states=states, transitionMatrix=transitionMatrix) 
plot(markovChain,package="diagram") 

DÜZENLEME:

Eğer markovchain yüklerken sorun varsa paket, biz aslında kullanamazsınız ve doğrudan diagram kullanın gereken pakette, sadece transitionMatrix

library(diagram) 
plotmat(transitionMatrix,relsize=0.7) 

Ardından yanıt plotmat