Update random-tidy-normal.R

towards #301
spsanderson · Oct 10, 2022 · ece3c6d · ece3c6d
1 parent cf141e4
commit ece3c6d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/random-tidy-normal.R b/R/random-tidy-normal.R
@@ -90,8 +90,10 @@ tidy_normal <- function(.n = 50, .mean = 0, .sd = 1, .num_sims = 1) {
     dplyr::mutate(d = list(density(unlist(y), n = n)[c("x", "y")] %>%
       purrr::set_names("dx", "dy") %>%
       dplyr::as_tibble())) %>%
-    dplyr::mutate(p = list(stats::pnorm(ps, mu, std))) %>%
-    dplyr::mutate(q = list(stats::qnorm(tidy_scale_zero_one_vec(unlist(y)), mu, std))) %>%
+    dplyr::mutate(p = list(stats::pnorm(unlist(y), mu, std))) %>%
+    dplyr::mutate(q = list(stats::qnorm(unlist(p), mu, std))) %>%
+    # dplyr::mutate(p = list(stats::pnorm(ps, mu, std))) %>%
+    # dplyr::mutate(q = list(stats::qnorm(tidy_scale_zero_one_vec(unlist(y)), mu, std))) %>%
     tidyr::unnest(cols = c(x, y, d, p, q)) %>%
     dplyr::ungroup()