comment initilaiser une réseau bayesien en R?

omment initialiser une réseau bayesien en utilisant la matrice Q en créant un arc pour chaque élément de chacune de ses compétences requises? Parce qu'il n'y a pas d'arêtes entre les compétences, Le réseau ne code aucune information préalable. Utilise Structurel EM pour apprendre les arcs (prérequis) entre les compétence.
voila le data.frame

Code:

---

train1<-data.frame(User=c("u1","u2","u3","u4","u5","u6","u7"),Skill=c("S1","S2","S3","S4","S5","s6","s7"),Item=c("I1","I2","I3","I4","I5","I6","I7"),Performance=c(1,0,0,1,0,0,1,0,0,1,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,0,0,1))

---

train1
la matrice Q:

Code:

---

Q <- matrix( c(data=train1$Performance),nrow=7, ncol=7, byrow=TRUE ,dimnames = list(train1$Item[1:7],train1$Skill[1:7]))

---