library(igraph) # 全域木にplusE本のエッジを加えたグラフを作る N<-5 plusE<-3 s<-sample(1:(N-1),plusE) pluses<-rep(0,N) pluses[s]<-1 M<-matrix(0,N,N) for(i in 1:(N-2)){ num<-1 if(pluses[i]==1){ num<-2 } M[i,sample((i+1):N,num)]<-1 } M[N-1,N]…