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]
