R/getMeta1.R

In StrawbearryMilk/MetaFunctionsPackage: Meta-Analysis Functions

#' Meta Coefficients Function
#'
#' This function analyzes a dataset to create a meta object
#' @param subdata Subset of data
#' @param task.variables Vector of strings, default is a function of the subset of data
#' @export


getMeta1 <- function(subdata, task.variables){
	prepData <- cbind(subdata[c(1,2,3)],task.variables,subdata[9:21]) #preparing data for metacont function

	meta1 <- metacont(n.e = nT, mean.e = Mean_Post_T, sd.e = SD_Post_T,
						n.c = nC, mean.c = Mean_Post_C, sd.c = SD_Post_C,
						studlab = task.variables, data = prepData, sm = "SMD",method.smd = "Hedges")
	return(meta1)
	}
#		subdata (atsu) [subdata comes from rows, so get rows first and call on it here