Create OptDis.R