interaction_to_subset.r

# Goal: Make a function that takes an interaction mdoel and transforms the output to look like subset models.
#' @parameter obj linear model object
#' @parameter data Data frame used to estimate the model
#' @parameter incl_difference Logical argument identifying whether differences between coefficient vectors should be included. 
#' @parameter ... Other arguments, currently unimplemented
interaction_to_subset <- function(obj, data, incl_difference=FALSE, ...){

}