# title: 標準常態分配之累積機率值表# date: 2016.11.12z <- seq(0, 3.59, by=0.01)p <- pnorm(z)m <- matrix(p, ncol=10, byrow=TRUE)rownames(m) <- sprintf("%.1f", seq(0, 3.5, 0.1))colnames(m) <- sprintf("%.2f", seq(0, 0.9, 0.1))options(digits=4)m# end