; ----------------------------------------------------------------- ; EBook xlg ; ----------------------------------------------------------------- ; See_also ; ----------------------------------------------------------------- ; Macro XLGsmoo07 ; ----------------------------------------------------------------- ; Description Confidence bands for density estimation. ; ----------------------------------------------------------------- library("smoother") library("plot") setsize(640,480) ; netinc=read("nicfoo") netinc=netinc[,1] ; {fh,fl,fu}=dencb(netinc,0.2,0.05,"gau") fh=setmask(fh,"line","blue") fl=setmask(fl,"line","blue","thin","dashed") fu=setmask(fu,"line","blue","thin","dashed") plot(fl,fu,fh) setgopt(plotdisplay,1,1,"title","Density Confidence Bands")