R/getRESandES.R

In StrawbearryMilk/MetaFunctionsPackage: Meta-Analysis Functions

#' RES and ES Computer
#'
#' This function computes the res and es of a data set, subsetting by type
#' @param subdata The subset of data to be used to obtain these two tables from
#' @export

getRESandES <- function(subdata){
	res <- mes(m.1 = subdata$Mean_Post_T, m.2 = subdata$Mean_Post_C, sd.1 = subdata$SD_Post_T, sd.2 = subdata$SD_Post_C,
	n.1 = subdata$nT, n.2 = subdata$nC, id = as.numeric(subdata$ID), data = subdata)
	eff.size <- cbind(subdata[c(1,2,3,5,6,7,8,9,10,11,12,18)], res[,c(13,14,15,16)])
	#print(res)
	eff.size
}