I'm having trouble creating this plot, and I can't seem to find what's causing the error here (returns "Could not combine the graphics objects in Show" and gives error: "Skeleton is not a Graphics primitive or directive").

Clear["Global`*`"]

f[x_] := 4 \[CapitalLambda] x (1 - x);

iterate[m_, n_] := Drop[NestList[f, 0.5, n], m]

drawpt[y_] := Point[{\[CapitalLambda], y}]

graph[mumin_, mumax_, nmu_, mdrop_, n_] := 
 Graphics[{PointSize[0.001], 
   Table[Map[drawpt, iterate[mdrop, n]], {\[CapitalLambda], mumin, 
     mumax, (mumax - mumin)/nmu}]}]

Show[graph[0.72, 1, 400, 300, 700], Axes \[RightArrow] False, 
 Frame \[RightArrow] True, FrameLabel \[RightArrow] {"mu", "x*"}, 
 PlotRange \[RightArrow] {{0.72, 1.02}, {0, 1}}, 
 AspectRatio \[RightArrow] 1]