quan2600index
Ad space (future)
Google AdSense block will go here.
Ad space (future)
Google AdSense block will go here.
Ad space (future)
Google AdSense block will go here.
Ad space (future)
Google AdSense block will go here.
Welcome 👋
Use the menu to jump to topics. Each topic page includes: - Concept explanation (plain English) - Worked examples - Excel steps + formulas - R examples (simple, copy/paste)
Quick links
- Examples Library: Excel & R Examples
- Interactive Z & T Tools: Z & T Tables
library(gt)
make_z_table <- function(
z_min = 0.0,
z_max = 3.9,
row_step = 0.1,
col_step = 0.01
) {
rows <- seq(z_min, z_max, by = row_step)
cols <- seq(0.00, 0.09, by = col_step)
Z <- outer(rows, cols, `+`)
P <- pnorm(Z)
df <- as.data.frame(round(P, 4))
names(df) <- sprintf("%.2f", cols)
df <- cbind(z = sprintf("%.1f", rows), df)
df
}
z_tbl <- make_z_table(z_min = 0, z_max = 2.0)
gt(z_tbl) |>
tab_header(
title = md("**Standard Normal Table: P(Z ≤ z)**"),
subtitle = "Rows give z to one decimal; columns add the hundredths place"
) |>
fmt_number(columns = -z, decimals = 4) |>
cols_label(z = "z") |>
tab_style(
style = cell_text(weight = "bold"),
locations = cells_column_labels(everything())
)