Exercises with Graph Data & 3D Geometry Data

RG[a_,b_,figure_]:=GraphPlot3D[RandomGraph[BernoulliGraphDistribution[a,b],
VertexCoordinates->ExampleData[{"Geometry3D",figure},
"VertexData"][[1;;a]]],EdgeShapeFunction->"Line",ImageSize->500,
VertexStyle->Darker[Green,.4],EdgeStyle->Opacity[.1]];
RG[3363,.0003,"Beethoven"]