

   CCoommppuutteess uunniivvaarriiaattee aavveerraaggeedd sshhiifftteedd hhiissttooggrraamm ((ppoollyynnoommiiaall
   kkeerrnneell))

        ash1(bins, m, kopt)

   AArrgguummeennttss::

       bins: (input list) `$nc'=integer vector of bin counts
             and `$ab'=bin interval

          m: (input) optional integer smoothing parameter;
             default=5.

       kopt: (input) vector of length 2 specifying the kernel,
             which is proportional to ( 1 - abs(i/m)^kopt(1)
             )i^kopt(2); (2,2)=biweight (default);  (0,0)=uni-
             form;  (1,0)=triangle; (2,1)=Epanechnikov;
             (2,3)=triweight.

   VVaalluuee::

        returns structure suitable for input to `plot' dd

        x=t: vector of bin center locations

        y=f: vector of ash estimates

        ier: 0=normal exit; 1=estimate nonzero outside interval
             ab

   SSeeee AAllssoo::

        `bin1'

   EExxaammpplleess::

        x <- rnorm(100)         # data
        f <- ash1(bin1(x,nbin=50),5) # compute ash estimate
        plot( f , type="l" )    # line plot of estimate

