diff --git a/tests/testthat/test_stat_density_ridges.R b/tests/testthat/test_stat_density_ridges.R index f514096..22c8dc2 100644 --- a/tests/testthat/test_stat_density_ridges.R +++ b/tests/testthat/test_stat_density_ridges.R @@ -112,21 +112,21 @@ test_that("alternative quantile function can be provided", { }) test_that("unweighted densities are calculated correctly", { - df <- data.frame(x = rnorm(100),wts = runif(100)) + df <- data.frame(x = rnorm(100), wts = runif(100)) df$wts <- df$wts / sum(df$wts) gg_no_wts <- layer_data(ggplot(df, aes(x = x, y = 0)) + stat_density_ridges()) d_no_wts <- stats::density(df$x) - expect_equal(gg_no_wts$density,d_no_wts$y) + expect_equal(gg_no_wts$density, d_no_wts$y) }) test_that("weighted densities are calculated correctly", { - df <- data.frame(x = rnorm(100),wts = runif(100)) + df <- data.frame(x = rnorm(100), wts = runif(100)) df$wts <- df$wts / sum(df$wts) gg_wts <- layer_data(ggplot(df, aes(x = x, y = 0, weight = wts)) + stat_density_ridges()) - d_wts <- stats::density(df$x,weights = df$wts) + d_wts <- stats::density(df$x, weights = df$wts) - expect_equal(gg_wts$density,d_wts$y) + expect_equal(gg_wts$density, d_wts$y) })