type<-c("M111","M112","M113","M114","M211","M212","M213","M311",
"M312","M411","M121","M122-1","M122-2","M122-3","M123-1",
"M123-2","M123-3","M123-4","M123-5","M221-1","M221-2",
"M221-3","M222-1","M222-2","M222-3","M222-4","M222-5",
"M222-6","M222-7","M222-8","M222-9","M321-1","M321-2",
"M321-3","M321-4","M321-5","M131","M132-1","M132-2",
"M132-3","M132-4","M132-5","M231-1","M231-2","M231-3",
"M231-4","M231-5","M141")
m<-Multi_motif("M222-4")
plot(m,main="M222-4")
mr <- par(mfrow=c(6,8),mar=c(1,1,3,1))
for(i in 1:48){
plot(Multi_motif("all")[[i]],
vertex.size=30, vertex.label=NA,
vertex.color="blue",main=type[i])
}
par(mr)
Run the code above in your browser using DataLab