data <- data.frame(
ATPTREF = c(1, 1, 1, 1, 1, 1),
PPTESTCD = c("A", "A", "B", "B", "C", "C"),
PPORRES = c(10, 20, 5, 15, NA, 30),
PPSTRES = c(10, 20, 5, 15, NA, 30),
PPORRESU = c("mg/L", "mg/L", "ng/mL", "ng/mL", "µg/L", "µg/L"),
PPSTRESU = c("mg/L", "mg/L", "ng/mL", "ng/mL", "µg/L", "µg/L")
)
calculate_summary_stats(data)
Run the code above in your browser using DataLab