Генерация серии матриц смежности

Question

Я пытаюсь сгенерировать серию из 80 матриц смежности 5X5, соответствующих помеченным ориентированным графам. Метод, который я выбрал, состоит в том, чтобы сначала создать 8 базовых немаркированных матриц (G1-G8), а затем применить к каждому из них 10 различных наборов имен столбцов и строк (A,B,C,D,E). Как мне написать функцию для повторения двух следующих задач 8*10 раз и, наконец, получить мои 80 различных матриц?

G1<-c(0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    MG1=matrix(G1, nrow=5,ncol=5,byrow=T)
    dimnames(MG1)=list(c("A","B","D","C","E"),c("A","B","D","C","E"))
    MG101<-MG1
    dimnames(MG1)=list(c("A","B","D","C","E"),c("A","B","D","C","E"))
    MG102<-MG1

Я пробовал это для каждого G без успеха

GenMat<-function(SN){
  mat<-matrix(G1,nrow=5,ncol=5,byrow=T)
  dimnames(mat)=list(nameslist)
}

Спасибо