fx_str <- function(x,
                   col_time,
                   col_group,
                   col_outcome,
                   period = 24,
                   alpha_threshold = 0.05,
                   timeout_n = 10000){

  if(!"ggplot2" %in% installed.packages()[, "Package"]){
    return(message("Please install 'ggplot2'"))
  }

  library(ggplot2)
  colnames(x)[agrep(col_group, colnames(x))] <- "group"

  if(length(levels(as.factor(x$group))) != 2){
    return(message("Your grouping variable had more or less than 2 levels! \nThis function is used to compare two groups of data. \nTo avoid me having to guess, please send data with only two possible values in your grouping variable to this function."))
  }

  group_1_text <- levels(as.factor(x$group))[1]
  group_2_text <- levels(as.factor(x$group))[2]
  colnames(x)[agrep(col_time, colnames(x))] <- "time"

  #if(!class(x$time) %in% c("numeric", "integer")){
  #  return(message(paste("The time variable which you gave was a '",
  #                       class(x$time),
  #                       "' \nThis function expects time to be given as hours and be of class 'integer' or 'numeric'.",
  #                       "\nPlease convert the time variable in your dataframe to be of one of these classes",
  #                       sep = "")))
  #}

  colnames(x)[agrep(col_outcome, colnames(x))] <- "measure"

  #if(!class(x$measure) %in% c("numeric", "integer")){
  #  return(message(paste("The measure variable which you gave was a '",
  #                       class(x$measure),
  #                       "' \nThis function expects measure to be number and be of class 'integer' or 'numeric'.",
  #                       "\nPlease convert the measure variable in your dataframe to be of one of these classes",
  #                       sep = "")))
  #}

  return(str(x))
}