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")
)
print(result)
Run the code above in your browser using DataLab