Update statistical_inference.R