Skip to content

Update ggplot call and include convergence status in output of ipu function#7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
szimmer wants to merge 3 commits into
base:master
Choose a base branch
from
Open

Update ggplot call and include convergence status in output of ipu function #7

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ff1c272
Update ggplot call to remove reference to data twice
szimmer Nov 20, 2020
04fe8cf
Save the convergence status in the object
szimmer Nov 20, 2020
c764fde
Add convergence status to description of output of ipu function
szimmer Nov 20, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 6 additions & 4 deletions R/ipu.R
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -62,8 +62,8 @@
#' The min_scale caps the minimum weight at a multiple of that average. Defaults
#' to \code{0.0001} (basically turned off).
#' @return a \code{named list} with the \code{primary_seed} with weight, a
#' histogram of the weight distribution, and two comparison tables to aid in
#' reporting.
#' histogram of the weight distribution, two comparison tables to aid in
#' reporting, and the convergence status.
#' @export
#' @examples
#' hh_seed <- dplyr::tibble(
Expand DownExpand Up@@ -350,7 +350,7 @@ ipu <- function(primary_seed, primary_targets,
result$weight_tbl <- primary_seed
result$weight_tbl$geo_all <- NULL
result$weight_dist <- ggplot2::ggplot(
data = primary_seed, ggplot2::aes(primary_seed$weight_factor)
data = primary_seed, ggplot2::aes(weight_factor)
) +
ggplot2::geom_histogram(bins = 10, fill = "darkblue", color = "gray") +
ggplot2::labs(
Expand DownExpand Up@@ -380,6 +380,8 @@ ipu <- function(primary_seed, primary_targets,
result$secondary_comp <- secondary_comp
}

result$converged <- converged

return(result)
}

Expand DownExpand Up@@ -908,4 +910,4 @@ process_seed_table <- function(df, primary_id, marginal_columns){
df <- df %>%
mlr::createDummyFeatures()
return(df)
}
}