# From raw data
data("data_penlaptop1")
estimate_from_raw <- esci::estimate_mdiff_two(
data = data_penlaptop1,
outcome_variable = transcription,
grouping_variable = condition,
switch_comparison_order = TRUE,
assume_equal_variance = TRUE
)
# To visualize the estimated median difference (raw data only)
myplot_from_raw <- esci::plot_mdiff(
estimate_from_raw,
effect_size = "median"
)
# To conduct a hypothesis test
res_htest_from_raw <- esci::test_mdiff(
estimate_from_raw,
effect_size = "median",
rope = c(-2, 2)
)
# From summary data
estimate_from_summary <- esci::estimate_mdiff_two(
comparison_mean = 12.09,
comparison_sd = 5.52,
comparison_n = 103,
reference_mean = 6.88,
reference_sd = 4.22,
reference_n = 48,
grouping_variable_levels = c("Ref-Laptop", "Comp-Pen"),
outcome_variable_name = "% Transcription",
grouping_variable_name = "Note-taking type",
assume_equal_variance = TRUE
)
# To visualize the estimated mean difference
myplot <- esci::plot_mdiff(
estimate_from_summary,
effect_size = "mean"
)
# To conduct a hypothesis test
res_htest_from_summary <- esci::test_mdiff(
estimate_from_summary,
effect_size = "mean",
rope = c(-2, 2)
)
Run the code above in your browser using DataLab