02.07.2013 Views

现代统计图形 - 科学网—博客

现代统计图形 - 科学网—博客

现代统计图形 - 科学网—博客

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

2.3 安装R语言 19<br />

1 > # 生成x(从-3到3长度为200的数列)和y(正态密度)<br />

2 > x = seq(-3, 3, length = 200)<br />

3 > y = dnorm(x)<br />

4 > # 建立图形框架<br />

5 > plot(x, y, type = "n")<br />

6 > # 设定5%和95%分位数之间的X点和相应密度值<br />

7 > xx = seq(-1.65, 1.65, length = 100)<br />

8 > yy = c(0, dnorm(xx), 0)<br />

9 > xx = c(-1.65, xx, 1.65)<br />

10 > # 灰色多边形<br />

11 > polygon(xx, yy, col = "gray", border = NA)<br />

12 > # 添加密度曲线<br />

13 > lines(x, y)<br />

14 > # 文本标注<br />

15 > text(0, 0.05, "$P(-1.65 < X < 1.65) = 90\\%$")<br />

y<br />

0.0 0.1 0.2 0.3 0.4<br />

P (−1.65 < X < 1.65) = 90%<br />

-3 -2 -1 0 1 2 3<br />

图 2.1: 正态分布密度曲线及其5%到95%分位数区间表示<br />

x

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!