# From raw data
data("data_rattanmotivation")
estimate_from_raw <- esci::estimate_mdiff_ind_contrast(
esci::data_rattanmotivation,
Motivation,
Group,
contrast = c("Challenge" = 1, "Control" = -1/2, "Comfort" = -1/2)
)
# To visualize the estimate
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"
)
# From summary data
data("data_halagappa")
estimate_from_summary <- estimate_mdiff_ind_contrast(
means = data_halagappa$Mean,
sds = data_halagappa$SD,
ns = data_halagappa$n,
grouping_variable_levels = as.character(data_halagappa$Groups),
assume_equal_variance = TRUE,
contrast = c(
"NFree10" = 1/3,
"AFree10" = 1/3,
"ADiet10" = -1/3,
"NFree17" = -1/3,
"AFree17" = 1/3,
"ADiet17" = -1/3
),
grouping_variable_name = "Diet",
outcome_variable_name = "% time near target"
)
# To visualize the estimate
myplot <- esci::plot_mdiff(estimate_from_summary, effect_size = "mean")
# To conduct a hypothesis test
res_htest_from_raw <- esci::test_mdiff(
estimate_from_summary,
effect_size = "mean"
)
Run the code above in your browser using DataLab