用r语言编写程序使用Box-Muller方法生成1000个N(5,4)正态分布随机数，并绘制 正态QQ图检验随机数的正态性（可使用R函数：qqnorm）。

# 生成1000个N(5,4)正态分布随机数
set.seed(123)
u1 <- runif(1000)
u2 <- runif(1000)
z1 <- sqrt(-2*log(u1))*cos(2*pi*u2)
z2 <- sqrt(-2*log(u1))*sin(2*pi*u2)
x <- 5 + 2*z1

# 绘制正态QQ图
qqnorm(x)
qqline(x)

解释：首先使用Box-Muller方法生成1000个标准正态分布随机数，然后通过线性变换将其转换为N(5,4)正态分布随机数。最后使用R函数`qqnorm`绘制正态QQ图，并使用`qqline`添加一条参考线。如果随机数符合正态分布，则应该在参考线附近分布。