通过R语言编程实现 蒙特卡洛积分法求gx = 1 / sqrt(2*pi) * exp(-1/2*x^2)在2到-2区间的定积分，编写一个MC函数实现函数输入n，返回上述定积分的值，利用microbenchmark package测试MC（5000）计算效率 执行50次MC函数，求50次结果的均值标准差，并用microbenchmark测试计算时间

可以使用以下R语言代码来实现： MC <- function(n){ # 定义函数
sum <- 0 # 初始化计算定积分和
for (i in 1:n){ # 根据n的大小循环n次
x <- runif(1, min = -2, max = 2) # 在-2到2之间取随机数
sum <- sum + (1 / sqrt(2*pi)) * exp(-1/2*x^2) # 计算定积分的和
}
return (sum * 4 / n) # 返回定积分值
}# 利用microbenchmark package测试MC（5000）计算效率
microbenchmark::microbenchmark(MC(5000))# 执行50次MC函数，求50次结果的均值标准差
results <- sapply(1:50, function(i) MC(5000))
mean(results)
sd(results)