Trying to build a package based on the R density function source code

Question

I want create a new package with code that is based on the R density function source code. The first step is to try and recreate the exact functionality of the exis