View source: R/model_get_weights.R
| model_get_weights | R Documentation | 
This function does not cover lavaan models (NULL is returned).
model_get_weights(model)
## Default S3 method:
model_get_weights(model)
## S3 method for class 'svyglm'
model_get_weights(model)
## S3 method for class 'svrepglm'
model_get_weights(model)
## S3 method for class 'model_fit'
model_get_weights(model)
## S3 method for class 'svy_vglm'
model_get_weights(model)
| model | (a model object, e.g.  | 
For class svrepglm objects (GLM on a survey object with replicate weights),
it will return the original sampling weights of the data, not the replicate
weights.
Other model_helpers: 
model_compute_terms_contributions(),
model_get_assign(),
model_get_coefficients_type(),
model_get_contrasts(),
model_get_model(),
model_get_model_frame(),
model_get_model_matrix(),
model_get_n(),
model_get_nlevels(),
model_get_offset(),
model_get_pairwise_contrasts(),
model_get_response(),
model_get_response_variable(),
model_get_terms(),
model_get_xlevels(),
model_identify_variables(),
model_list_contrasts(),
model_list_higher_order_variables(),
model_list_terms_levels(),
model_list_variables()
mod <- lm(Sepal.Length ~ Sepal.Width, iris)
mod |> model_get_weights()
mod <- lm(hp ~ mpg + factor(cyl) + disp:hp, mtcars, weights = mtcars$gear)
mod |> model_get_weights()
mod <- glm(
  response ~ stage * grade + trt,
  gtsummary::trial,
  family = binomial
)
mod |> model_get_weights()
mod <- glm(
  Survived ~ Class * Age + Sex,
  data = Titanic |> as.data.frame(),
  weights = Freq,
  family = binomial
)
mod |> model_get_weights()
d <- dplyr::as_tibble(Titanic) |>
  dplyr::group_by(Class, Sex, Age) |>
  dplyr::summarise(
    n_survived = sum(n * (Survived == "Yes")),
    n_dead = sum(n * (Survived == "No"))
  )
mod <- glm(cbind(n_survived, n_dead) ~ Class * Age + Sex, data = d, family = binomial)
mod |> model_get_weights()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.