Create nprime.R