Create Inference Course.R