bnlist<-list()
#bnlist[[k]]<-bnclustOmics(simdata,bnnames,maxEM=4, kclust=k,startpoint = "mclustPCA")
bnlist[[2]]<-bnres2
bnlist[[3]]<-bnres3
bnlist[[4]]<-bnres4
chooseK(bnlist,fun="BIC")
chooseK(bnlist,fun="AIC")
Run the code above in your browser using DataLab