Graphics & Visualization

Specify Bandwidth and Kernel for Smooth Histograms 

In[1]:=

X snow = ExampleData[{"Statistics", "BuffaloSnow"}]; Grid[ Partition[ MapThread[ SmoothHistogram[snow, #, PlotRange -> {{0, 150}, {0, .03}}, Axes -> {True, False}, Filling -> {1 -> {0, #2}}, Epilog -> Inset[Style[#, Black, Medium, Bold], Scaled[{.5, .92}]], BaseStyle -> {FontFamily -> "Helvetica"}] &, {Join[{1.5, {"Standardized", 1/8.}, {"Adaptive", Automatic, 1}, 5, 10, 25}, {"LeastSquaresCrossValidation", "Scott", "SheatherJones", "Silverman", "StandardDeviation", "StandardGaussian"}], Table[ColorData[cd, cd], {cd, 9, 20}]}], 3], Spacings -> {1, 2}]

Out[1]=