sna - How to compute Quadratic Assignment Procedure using R? -

i have 3 networks , want measure structural equivalence quadratic assignment procedure. have executed code got error . can 1 , suggest on right way ?

 rm(list=ls())     getwd()     library(sna)     dat=read.csv(file.choose(),header=true)     dat1=read.csv(file.choose(),header=true)      dat2=read.csv(file.choose(),header=true)       el=as.matrix(dat)     g=graph.edgelist(el,directed=false)      el=as.matrix(dat1)     g1=graph.edgelist(el,directed=false)      el=as.matrix(dat2)     g2=graph.edgelist(el,directed=false)     #perform qap tests of graph correlation      q.12<-qaptest(g,gcor,g1=1,g2=2) error in fun(x[[i]], ...) :    as.sociomatrix.sna input must adjacency matrix/array, network, or list. > q.13<-qaptest(g,gcor,g1=1,g2=3) error in fun(x[[i]], ...) :    as.sociomatrix.sna input must adjacency matrix/array, network, or list. >  > #examine results > summary(q.12) error in summary(q.12) : object 'q.12' not found > plot(q.12) error in plot(q.12) : object 'q.12' not found > summary(q.13) error in summary(q.13) : object 'q.13' not found > plot(q.13) error in plot(q.13) : object 'q.13' not found 

nodes size of 2 network should same.. means if 1 network has 50 nodes other network should have same set of nodes.. however, no of edges may differ