# Interaction effect logCVR (Light x Nutrients)
data <- data.frame(
study_id = 1:2,
control_mean = c(7.3, 8.9),
control_sd = c(1.4, 1.7),
control_n = c(20, 18),
light_mean = c(12.8, 14.2),
light_sd = c(3.1, 3.5),
light_n = c(19, 20),
nutrients_mean = c(9.6, 11.1),
nutrients_sd = c(1.9, 2.2),
nutrients_n = c(21, 17),
light_nutrients_mean = c(18.4, 20.7),
light_nutrients_sd = c(4.8, 5.3),
light_nutrients_n = c(18, 19)
)
result <- lnCVR_inter(
data = data,
Ctrl_mean = "control_mean",
Ctrl_sd = "control_sd",
Ctrl_n = "control_n",
A_mean = "light_mean",
A_sd = "light_sd",
A_n = "light_n",
B_mean = "nutrients_mean",
B_sd = "nutrients_sd",
B_n = "nutrients_n",
AB_mean = "light_nutrients_mean",
AB_sd = "light_nutrients_sd",
AB_n = "light_nutrients_n"
)
Run the code above in your browser using DataLab