Create ContactExperiment.R