Create crappy_logistic.R