# 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))
# }
Run the code above in your browser using DataLab