Ваша ошибка в том, что для работы BA-модели вам нужно иметь больше вершин в выходном графе, чем в исходном.Вы можете взять подграф вашей большой сети, если хотите использовать его для создания графа из 100 вершин.
g2<-induced.subgraph(large.network, sample(V(large.network), 20))
Или вы можете увеличить количество вершин в выходном графе.