format_p(0.000003434)
#> [1] "< 0.0001"
format_p(0.12)
#> [1] "0.12"
format_p(0.12, label=TRUE)
#> [1] "p = 0.12"
format_p(c(0.12, 0.000003434)) |> cat(sep = '\n')
#> 0.12
#> < 0.0001
format_p(c(0.12, 0.000003434), label = TRUE) |> cat(sep = '\n')
#> p = 0.12
#> p < 0.0001