Miscellaneous function

Miscellaneous function

unite_dotwhiskers(data, variable_dot, variable_low, variable_upp,
  digits_dot = 3, digits_low = 2, digits_upp = 3,
  decimal_to_percent = TRUE)

serosvy_extract_posterior(data, variable)

Arguments

data

tibble or dataframe
variable_dot

point estimate
variable_low

lower interval
variable_upp

upper interval
digits_dot

digits of point estimate to round
digits_low

digits of lower interval to round
digits_upp

digits of upper interval to round
decimal_to_percent

logical to multiply values by 100. TRUE by default.
variable

variable to extract from posterior distributions

Functions

  • unite_dotwhiskers: create new columns with unified point estimate and intervals with round numbers

  • serosvy_extract_posterior: priorización con dos covariables

Examples


if (FALSE) {

library(tidyverse)

test <- rgamma(n = 1000,shape = 3,rate = 0.2) %>%
  enframe(name = NULL) %>%
  mutate(value=value/100) %>%
  skimr::skim() %>%
  as_tibble() %>%
  select(contains("mean"),contains("p25"),contains("p50"))

test %>% glimpse()

test %>%
  unite_dotwhiskers(variable_dot = numeric.mean,
                    variable_low = numeric.p25,
                    variable_upp = numeric.p50,
                    digits_dot = 3,
                    digits_low = 3,
                    digits_upp = 3)
}