*! version 1.00 94/8/2          STB-26: snp6.1
program define warpoly
  version 3.1
*This program calculates Hardle-Scott warping density estimation
*(Frequency polygon version)
*using a TurboPascal program which utilizes modified algorithms from
*Hardle (1991) "Smoothing Techniques with Implementations in S", 
*Springer-Verlag Series in Statistics, New York and Scott (1992) 
*"Multivariate Density Estimation. Theory, Practice, and Visualization, 
*John Wiley & Sons, New York.
!warpings
tempvar midpoi densi
infile `densi' `midpoi' using resfile.
label variable `midpoi' "Midpoint"
label variable `densi' "Density"
graph `densi' `midpoi', c(l) s(.)
!del resfile
end