#**You may need to run this code twice to plot all graphs in a grid**
#**Plot labels may differ in position between conditions. Adjust the locations using the adj, cex and line options**
if (!require(TOSTER)) {install.packages('TOSTER')}
library(TOSTER)
library(purrr)
library(gridExtra)
library(ggplot2)
library(lattice)
library(cowplot)
library(grid)
require(plotrix)
plot1 <- TOSTtwo(m1 = 2.6, m2 = 4.5, sd1 = 2.5, sd2 = 2.3, n1 = 53, n2 = 48, low_eqbound_d = -0.5, high_eqbound_d = 0.5) #Lintzeris et al. (2002): 8 day self-reported heorin use, intervention (1) vs. control (2)
# A randomized controlled trial of buprenorphine in the management of short‐term ambulatory heroin withdrawal
plot2 <- TOSTtwo(m1 = 1.8, m2 = 1.88, sd1 = 0.84, sd2 = 0.81, n1 = 108, n2 = 103, low_eqbound_d = -0.5, high_eqbound_d = 0.5)#Example data created by Heirene (2019)
#Example
This file has been truncated. show original