Update Estimate_normal_var.R