library(igraph)
g <- ba.game(10000, 2)
system.time(coords <- layout.drl(g))
#    user  system elapsed
#  93.629   0.726  96.424
dim(coords)
# [1] 10000     2