Create setProb.R