Create nn_taper.R