# Construct a minimal survey_result to illustrate meta():
result <- structure(
tibble::tibble(mean = 42.0, se = 1.5, n = 100L),
.meta = list(
design_type = "taylor",
conf_level = 0.95,
call = quote(get_means(d, x)),
n_respondents = 100L,
group = list(),
x = list(
x = list(variable_label = NULL, question_preface = NULL,
value_labels = NULL)
)
),
class = c("survey_means", "survey_result", "tbl_df", "tbl", "data.frame")
)
meta(result)$design_type # "taylor"
meta(result)$n_respondents # 100L
meta(result)$conf_level # 0.95
Run the code above in your browser using DataLab