# function to split model into different columns for texreg subcoef <- function(condition, mname){ sub <- grep(condition,slot(mname,"coef.names")) for (ele in c("coef.names","coef","se","pvalues")) { elements<- slot(mname,ele)[sub] slot(mname,ele) <- elements } slot(mname,"coef.names")<-gsub(pattern = condition,replacement = "",x =slot(mname,"coef.names") ) slot(mname,"model.name")<-gsub("_","",condition) return(mname) }