染色体グラフの伝達選択数

• 染色体グラフは子染色体は由来二親染色体と結ばれている
• これを分岐と呼ぶことにする
• グラフにいくつの分岐があるかを数える

sepGraphs<-SeparateGraphs(hG)
# 分けたグラフごとにいくつの分岐があるかを数える
numBifperGraph<-rep(0,length(sepGraphs))
for(i in 1:length(sepGraphs)){
	numBifperGraph[i]<-length(which(sepGraphs[[i]][,2]!=0))
}
numBifperGraph