[igraph] Extra arguments in make_graph

[Ragia .]

 Hi,

I' m trying to use the answer in

http://stackoverflow.com/questions/9705035/how-to-copy-a-vertex-with-its-respective-edges-all-in-out-from-a-directed-gra/39772710#39772710

trying to create exact copy of a graph

my graph object name is : graph 

and it works fine till I reach the contraction phase

all.vertices <- (1:vcount(graph)) - 1

es <- E(graph) #[ sampled %--% 1:n ]

el <- get.edgelist(graph)[as.vector(es)+1]

 reachabelGraph1 <- graph(el, vcount(graph), directed = TRUE)

I got he Error  "Extra arguments in make_graph"

kindly,  how can I fix this?

thanks in advance

Ragia A. Ibrahim