Question: Update to Statistics

How to update this code to the Statistic Package for the graph below?for n from 1 to 15 do num:=convert(evalf(n), string): tracker[n]:=textplot([18,0.3,`Lambda is `.num],color=blue): H[n]:=ProbHist(PoissonPDF(n,x),0..25,26): N[n]:=plot(NormalPDF(n,n,x),x = 0..25):  P[n]:=display({H[n],N[n],tracker[n]}): od: display([seq(P[n], n=1..15)], insequence=true,title="Normal Approx. to the Poisson. Lambda is increasing from 1 to 15");
Please Wait...