*
* Examples from section 11.4, pp 370-374
*
open data cps88.asc
data(format=prn,org=columns) 1 1000 age exp2 grade ind1 married lnwage occ1 partt potexp union weight high
*
density(type=histogram,maxgrid=5) lnwage / wx fx
scatter(style=bargraph,footer="Figure 11.6 Histogram with five bins")
# wx fx
density(type=histogram,maxgrid=50) lnwage / wx fx
scatter(style=bargraph,footer="Figure 11.7 Histogram with 50 bins")
# wx fx
density(type=flat,bandwidth=.1) lnwage / wx fx
scatter(style=line,footer="Figure 11.9 Naive estimator (Flat Kernel)")
# wx fx
density(type=epanech) lnwage / wx fx
scatter(style=line,footer="Epanechnikov Kernel")
# wx fx