Create nonpropoddssim.r