R 中 pnorm() 的问题,一直生成 1 的值

Issues with pnorm() in R, keeps generating a value of 1

我正在研究 HarvardX 数据科学项目。在概率部分,我们被要求确定得分高于 30 的概率。我什至插入了 DataCamp 显示的确切代码作为答案,但 pnorm() 仍然是 returns 的值1 对于我输入的任何分位数为 27 或更高。我附上了我的代码以供参考。有人可以指出问题所在吗?

参考下图:

R 对控制台输出进行自动舍入。可视化。存在多种方法来打印所有有效数字。由于我们在 32 位环境中工作,我们可以打印第一个 15' digits using

sprintf("%.15f", pnorm(30,11,2.87))
#output
[1] "0.999999999982065"

任何超过 15 位的数字都是不可信的。