## Not run:
# ## Research question 4.4.1
# summary(meta(r, r_v, data=Jaramillo05))
#
# ## Research question 4.4.2
# ## Select cases with either "sales" or "nonsales"
# Sales.df <- subset(Jaramillo05, Sales %in% c("sales", "nonsales"))
#
# ## Create a predictor with 1 and 0 when they are "sales" or "nonsales", respectively
# predictor <- ifelse(Jaramillo05$Sales=="sales", yes=1, no=0)
#
# ## Mixed-effects meta-analysis
# summary( meta(y = r, v = r_v, x = predictor, data = Jaramillo05) )
#
# ## Research question 4.4.3
# summary(meta(r, r_v, x=IDV, data=Jaramillo05))
# ## End(Not run)
Run the code above in your browser using DataLab