diff --git a/DESCRIPTION b/DESCRIPTION index 69ab625..6eca36b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: densityratio Type: Package Title: Distribution Comparison Through Density Ratio Estimation -Version: 0.2.1 +Version: 0.2.1.9000 Authors@R: c( person("Thom", "Volker", email = "thombenjaminvolker@gmail.com", diff --git a/NEWS.md b/NEWS.md index 5a6cd0e..f322ce1 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,5 @@ +# densityratio (development version) + # densityratio 0.2.1 * patch test files to work with the new upcoming ggplot release diff --git a/R/plot.R b/R/plot.R index a05a91b..e8b4864 100644 --- a/R/plot.R +++ b/R/plot.R @@ -556,7 +556,7 @@ plot_bivariate <- function(x, vars = NULL, samples = "both", grid = FALSE, ## Create name of empty panels in the upper diagonal empty_panels <- expand.grid(seq(1:length(vars)), seq(1:length(vars))) - empty_panels <- empty_panels[empty_panels$Var2 > empty_panels$Var1, , drop = FALSE] + empty_panels <- empty_panels[empty_panels$Var1 > empty_panels$Var2, , drop = FALSE] empty_panels$panel <- paste0("panel-", empty_panels$Var1, "-", empty_panels$Var2)