# Nastawianie szerokosci pasma w estymatorze jadrowym gestosci
# wg wskazowek Sheathera z zalaczonej pracy
bw.pp=function(x) mean( c( bw.SJ(x,method="dpi"), bw.SJ(x,method="ste"), 
                           bw.bcv(x), bw.ucv(x) ), trim=.5 )