func_Asp_Fam.R

add_column <- function(dat = NULL, nominator = NULL, denominator = NULL){
    if (!is.null(dat) & !is.null(nominator) & !is.null(denominator)) {
        if(all(unique(c(nominator, denominator)) %in% colnames(dat))){
            nominator = sort(unique(nominator))
            denominator = sort(unique(denominator))
            dat = dat %>% mutate(newly_add_column = rowSums(.[nominator])/rowSums(.[denominator]))
            colnames(dat)[colnames(dat) == "newly_add_column"] = paste(
              paste(nominator, collapse = ""),
              paste(denominator, collapse = ""),
              sep = "_vs_"
            )
        }
    } else if(!is.null(dat) & !is.null(nominator) & is.null(denominator)){
        if(all(unique(nominator) %in% colnames(dat)) & length(unique(nominator))>1){
            nominator = sort(unique(nominator))
            dat = dat %>% mutate(newly_add_column = rowSums(.[nominator]))
            colnames(dat)[colnames(dat) == "newly_add_column"] = paste(nominator, collapse = "")
        }
    }
    return(dat)
}

keep_column <- function(dat = NULL, column = NULL){
    if(is.null(dat) | is.null(column)){
        return(NULL)
    }
    column = c(column, "Line", "line", "Taxa", "taxa", "Population", "population")
    index = NULL
    for(i in 1:length(column)){
        if(i == 1){
            index = str_detect(colnames(dat), column[i])
        } else{
            index = index | str_detect(colnames(dat), column[i])
        }
    }
    if(!is.null(index)){
        dat = dat[, index]
    }
    return(dat)
}



func_Asp_Fam <- function(dat = NULL, type = NULL){
    if(is.null(dat) | is.null(type)){
        return(NULL)
    }

    if(type == "FAA"){
        dat = add_column(dat, "I", "Total")
        dat = add_column(dat, "M", "Total")
        dat = add_column(dat, "T", "Total")
        dat = add_column(dat, "D", "Total")
        dat = add_column(dat, "K", "Total")
        dat = add_column(dat, "N", "Total")
        dat = add_column(dat, "I", "M")
        dat = add_column(dat, "I", "T")
        dat = add_column(dat, "I", "D")
        dat = add_column(dat, "I", "K")
        dat = add_column(dat, "I", "N")
        dat = add_column(dat, "I", c("I", "M"))
        dat = add_column(dat, "I", c("I", "T"))
        dat = add_column(dat, "I", c("I", "D"))
        dat = add_column(dat, "I", c("I", "K"))
        dat = add_column(dat, "I", c("I", "N"))
        dat = add_column(dat, "I", c("M", "T"))
        dat = add_column(dat, "I", c("M", "D"))
        dat = add_column(dat, "I", c("M", "K"))
        dat = add_column(dat, "I", c("M", "N"))
        dat = add_column(dat, "I", c("T", "D"))
        dat = add_column(dat, "I", c("T", "K"))
        dat = add_column(dat, "I", c("T", "N"))
        dat = add_column(dat, "I", c("D", "K"))
        dat = add_column(dat, "I", c("D", "N"))
        dat = add_column(dat, "I", c("K", "N"))
        dat = add_column(dat, "I", c("I", "M", "T"))
        dat = add_column(dat, "I", c("I", "M", "D"))
        dat = add_column(dat, "I", c("I", "M", "K"))
        dat = add_column(dat, "I", c("I", "M", "N"))
        dat = add_column(dat, "I", c("I", "T", "D"))
        dat = add_column(dat, "I", c("I", "T", "K"))
        dat = add_column(dat, "I", c("I", "T", "N"))
        dat = add_column(dat, "I", c("I", "D", "K"))
        dat = add_column(dat, "I", c("I", "D", "N"))
        dat = add_column(dat, "I", c("I", "K", "N"))
        dat = add_column(dat, "I", c("M", "T", "D"))
        dat = add_column(dat, "I", c("M", "T", "K"))
        dat = add_column(dat, "I", c("M", "T", "N"))
        dat = add_column(dat, "I", c("M", "D", "K"))
        dat = add_column(dat, "I", c("M", "D", "N"))
        dat = add_column(dat, "I", c("M", "K", "N"))
        dat = add_column(dat, "I", c("T", "D", "K"))
        dat = add_column(dat, "I", c("T", "D", "N"))
        dat = add_column(dat, "I", c("T", "K", "N"))
        dat = add_column(dat, "I", c("D", "K", "N"))
        dat = add_column(dat, "I", c("I", "M", "T", "D"))
        dat = add_column(dat, "I", c("I", "M", "T", "K"))
        dat = add_column(dat, "I", c("I", "M", "T", "N"))
        dat = add_column(dat, "I", c("I", "T", "D", "K"))
        dat = add_column(dat, "I", c("I", "T", "D", "N"))
        dat = add_column(dat, "I", c("I", "D", "K", "N"))
        dat = add_column(dat, "I", c("M", "T", "D", "K"))
        dat = add_column(dat, "I", c("M", "T", "D", "N"))
        dat = add_column(dat, "I", c("M", "D", "K", "N"))
        dat = add_column(dat, "I", c("T", "D", "K", "N"))
        dat = add_column(dat, "I", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "I", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "I", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "I", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "I", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "I", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "I", c("I", "M", "T", "D", "K", "N"))
        dat = add_column(dat, "M", "I")
        dat = add_column(dat, "M", "T")
        dat = add_column(dat, "M", "D")
        dat = add_column(dat, "M", "K")
        dat = add_column(dat, "M", "N")
        dat = add_column(dat, "M", c("I", "M"))
        dat = add_column(dat, "M", c("I", "T"))
        dat = add_column(dat, "M", c("I", "D"))
        dat = add_column(dat, "M", c("I", "K"))
        dat = add_column(dat, "M", c("I", "N"))
        dat = add_column(dat, "M", c("M", "T"))
        dat = add_column(dat, "M", c("M", "D"))
        dat = add_column(dat, "M", c("M", "K"))
        dat = add_column(dat, "M", c("M", "N"))
        dat = add_column(dat, "M", c("T", "D"))
        dat = add_column(dat, "M", c("T", "K"))
        dat = add_column(dat, "M", c("T", "N"))
        dat = add_column(dat, "M", c("D", "K"))
        dat = add_column(dat, "M", c("D", "N"))
        dat = add_column(dat, "M", c("K", "N"))
        dat = add_column(dat, "M", c("I", "M", "T"))
        dat = add_column(dat, "M", c("I", "M", "D"))
        dat = add_column(dat, "M", c("I", "M", "K"))
        dat = add_column(dat, "M", c("I", "M", "N"))
        dat = add_column(dat, "M", c("I", "T", "D"))
        dat = add_column(dat, "M", c("I", "T", "K"))
        dat = add_column(dat, "M", c("I", "T", "N"))
        dat = add_column(dat, "M", c("I", "D", "K"))
        dat = add_column(dat, "M", c("I", "D", "N"))
        dat = add_column(dat, "M", c("I", "K", "N"))
        dat = add_column(dat, "M", c("M", "T", "D"))
        dat = add_column(dat, "M", c("M", "T", "K"))
        dat = add_column(dat, "M", c("M", "T", "N"))
        dat = add_column(dat, "M", c("M", "D", "K"))
        dat = add_column(dat, "M", c("M", "D", "N"))
        dat = add_column(dat, "M", c("M", "K", "N"))
        dat = add_column(dat, "M", c("T", "D", "K"))
        dat = add_column(dat, "M", c("T", "D", "N"))
        dat = add_column(dat, "M", c("T", "K", "N"))
        dat = add_column(dat, "M", c("D", "K", "N"))
        dat = add_column(dat, "M", c("I", "M", "T", "D"))
        dat = add_column(dat, "M", c("I", "M", "T", "K"))
        dat = add_column(dat, "M", c("I", "M", "T", "N"))
        dat = add_column(dat, "M", c("I", "T", "D", "K"))
        dat = add_column(dat, "M", c("I", "T", "D", "N"))
        dat = add_column(dat, "M", c("I", "D", "K", "N"))
        dat = add_column(dat, "M", c("M", "T", "D", "K"))
        dat = add_column(dat, "M", c("M", "T", "D", "N"))
        dat = add_column(dat, "M", c("M", "D", "K", "N"))
        dat = add_column(dat, "M", c("T", "D", "K", "N"))
        dat = add_column(dat, "M", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "M", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "M", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "M", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "M", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "M", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "M", c("I", "M", "T", "D", "K", "N"))
        dat = add_column(dat, "T", "I")
        dat = add_column(dat, "T", "M")
        dat = add_column(dat, "T", "D")
        dat = add_column(dat, "T", "K")
        dat = add_column(dat, "T", "N")
        dat = add_column(dat, "T", c("I", "M"))
        dat = add_column(dat, "T", c("I", "T"))
        dat = add_column(dat, "T", c("I", "D"))
        dat = add_column(dat, "T", c("I", "K"))
        dat = add_column(dat, "T", c("I", "N"))
        dat = add_column(dat, "T", c("M", "T"))
        dat = add_column(dat, "T", c("M", "D"))
        dat = add_column(dat, "T", c("M", "K"))
        dat = add_column(dat, "T", c("M", "N"))
        dat = add_column(dat, "T", c("T", "D"))
        dat = add_column(dat, "T", c("T", "K"))
        dat = add_column(dat, "T", c("T", "N"))
        dat = add_column(dat, "T", c("D", "K"))
        dat = add_column(dat, "T", c("D", "N"))
        dat = add_column(dat, "T", c("K", "N"))
        dat = add_column(dat, "T", c("I", "M", "T"))
        dat = add_column(dat, "T", c("I", "M", "D"))
        dat = add_column(dat, "T", c("I", "M", "K"))
        dat = add_column(dat, "T", c("I", "M", "N"))
        dat = add_column(dat, "T", c("I", "T", "D"))
        dat = add_column(dat, "T", c("I", "T", "K"))
        dat = add_column(dat, "T", c("I", "T", "N"))
        dat = add_column(dat, "T", c("I", "D", "K"))
        dat = add_column(dat, "T", c("I", "D", "N"))
        dat = add_column(dat, "T", c("I", "K", "N"))
        dat = add_column(dat, "T", c("M", "T", "D"))
        dat = add_column(dat, "T", c("M", "T", "K"))
        dat = add_column(dat, "T", c("M", "T", "N"))
        dat = add_column(dat, "T", c("M", "D", "K"))
        dat = add_column(dat, "T", c("M", "D", "N"))
        dat = add_column(dat, "T", c("M", "K", "N"))
        dat = add_column(dat, "T", c("T", "D", "K"))
        dat = add_column(dat, "T", c("T", "D", "N"))
        dat = add_column(dat, "T", c("T", "K", "N"))
        dat = add_column(dat, "T", c("D", "K", "N"))
        dat = add_column(dat, "T", c("I", "M", "T", "D"))
        dat = add_column(dat, "T", c("I", "M", "T", "K"))
        dat = add_column(dat, "T", c("I", "M", "T", "N"))
        dat = add_column(dat, "T", c("I", "T", "D", "K"))
        dat = add_column(dat, "T", c("I", "T", "D", "N"))
        dat = add_column(dat, "T", c("I", "D", "K", "N"))
        dat = add_column(dat, "T", c("M", "T", "D", "K"))
        dat = add_column(dat, "T", c("M", "T", "D", "N"))
        dat = add_column(dat, "T", c("M", "D", "K", "N"))
        dat = add_column(dat, "T", c("T", "D", "K", "N"))
        dat = add_column(dat, "T", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "T", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "T", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "T", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "T", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "T", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "T", c("I", "M", "T", "D", "K", "N"))
        dat = add_column(dat, "D", "I")
        dat = add_column(dat, "D", "M")
        dat = add_column(dat, "D", "T")
        dat = add_column(dat, "D", "K")
        dat = add_column(dat, "D", "N")
        dat = add_column(dat, "D", c("I", "M"))
        dat = add_column(dat, "D", c("I", "T"))
        dat = add_column(dat, "D", c("I", "D"))
        dat = add_column(dat, "D", c("I", "K"))
        dat = add_column(dat, "D", c("I", "N"))
        dat = add_column(dat, "D", c("M", "T"))
        dat = add_column(dat, "D", c("M", "D"))
        dat = add_column(dat, "D", c("M", "K"))
        dat = add_column(dat, "D", c("M", "N"))
        dat = add_column(dat, "D", c("T", "D"))
        dat = add_column(dat, "D", c("T", "K"))
        dat = add_column(dat, "D", c("T", "N"))
        dat = add_column(dat, "D", c("D", "K"))
        dat = add_column(dat, "D", c("D", "N"))
        dat = add_column(dat, "D", c("K", "N"))
        dat = add_column(dat, "D", c("I", "M", "T"))
        dat = add_column(dat, "D", c("I", "M", "D"))
        dat = add_column(dat, "D", c("I", "M", "K"))
        dat = add_column(dat, "D", c("I", "M", "N"))
        dat = add_column(dat, "D", c("I", "T", "D"))
        dat = add_column(dat, "D", c("I", "T", "K"))
        dat = add_column(dat, "D", c("I", "T", "N"))
        dat = add_column(dat, "D", c("I", "D", "K"))
        dat = add_column(dat, "D", c("I", "D", "N"))
        dat = add_column(dat, "D", c("I", "K", "N"))
        dat = add_column(dat, "D", c("M", "T", "D"))
        dat = add_column(dat, "D", c("M", "T", "K"))
        dat = add_column(dat, "D", c("M", "T", "N"))
        dat = add_column(dat, "D", c("M", "D", "K"))
        dat = add_column(dat, "D", c("M", "D", "N"))
        dat = add_column(dat, "D", c("M", "K", "N"))
        dat = add_column(dat, "D", c("T", "D", "K"))
        dat = add_column(dat, "D", c("T", "D", "N"))
        dat = add_column(dat, "D", c("T", "K", "N"))
        dat = add_column(dat, "D", c("D", "K", "N"))
        dat = add_column(dat, "D", c("I", "M", "T", "D"))
        dat = add_column(dat, "D", c("I", "M", "T", "K"))
        dat = add_column(dat, "D", c("I", "M", "T", "N"))
        dat = add_column(dat, "D", c("I", "T", "D", "K"))
        dat = add_column(dat, "D", c("I", "T", "D", "N"))
        dat = add_column(dat, "D", c("I", "D", "K", "N"))
        dat = add_column(dat, "D", c("M", "T", "D", "K"))
        dat = add_column(dat, "D", c("M", "T", "D", "N"))
        dat = add_column(dat, "D", c("M", "D", "K", "N"))
        dat = add_column(dat, "D", c("T", "D", "K", "N"))
        dat = add_column(dat, "D", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "D", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "D", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "D", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "D", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "D", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "D", c("I", "M", "T", "D", "K", "N"))
        dat = add_column(dat, "K", "I")
        dat = add_column(dat, "K", "M")
        dat = add_column(dat, "K", "T")
        dat = add_column(dat, "K", "D")
        dat = add_column(dat, "K", "N")
        dat = add_column(dat, "K", c("I", "M"))
        dat = add_column(dat, "K", c("I", "T"))
        dat = add_column(dat, "K", c("I", "D"))
        dat = add_column(dat, "K", c("I", "K"))
        dat = add_column(dat, "K", c("I", "N"))
        dat = add_column(dat, "K", c("M", "T"))
        dat = add_column(dat, "K", c("M", "D"))
        dat = add_column(dat, "K", c("M", "K"))
        dat = add_column(dat, "K", c("M", "N"))
        dat = add_column(dat, "K", c("T", "D"))
        dat = add_column(dat, "K", c("T", "K"))
        dat = add_column(dat, "K", c("T", "N"))
        dat = add_column(dat, "K", c("D", "K"))
        dat = add_column(dat, "K", c("D", "N"))
        dat = add_column(dat, "K", c("K", "N"))
        dat = add_column(dat, "K", c("I", "M", "T"))
        dat = add_column(dat, "K", c("I", "M", "D"))
        dat = add_column(dat, "K", c("I", "M", "K"))
        dat = add_column(dat, "K", c("I", "M", "N"))
        dat = add_column(dat, "K", c("I", "T", "D"))
        dat = add_column(dat, "K", c("I", "T", "K"))
        dat = add_column(dat, "K", c("I", "T", "N"))
        dat = add_column(dat, "K", c("I", "D", "K"))
        dat = add_column(dat, "K", c("I", "D", "N"))
        dat = add_column(dat, "K", c("I", "K", "N"))
        dat = add_column(dat, "K", c("M", "T", "D"))
        dat = add_column(dat, "K", c("M", "T", "K"))
        dat = add_column(dat, "K", c("M", "T", "N"))
        dat = add_column(dat, "K", c("M", "D", "K"))
        dat = add_column(dat, "K", c("M", "D", "N"))
        dat = add_column(dat, "K", c("M", "K", "N"))
        dat = add_column(dat, "K", c("T", "D", "K"))
        dat = add_column(dat, "K", c("T", "D", "N"))
        dat = add_column(dat, "K", c("T", "K", "N"))
        dat = add_column(dat, "K", c("D", "K", "N"))
        dat = add_column(dat, "K", c("I", "M", "T", "D"))
        dat = add_column(dat, "K", c("I", "M", "T", "K"))
        dat = add_column(dat, "K", c("I", "M", "T", "N"))
        dat = add_column(dat, "K", c("I", "T", "D", "K"))
        dat = add_column(dat, "K", c("I", "T", "D", "N"))
        dat = add_column(dat, "K", c("I", "D", "K", "N"))
        dat = add_column(dat, "K", c("M", "T", "D", "K"))
        dat = add_column(dat, "K", c("M", "T", "D", "N"))
        dat = add_column(dat, "K", c("M", "D", "K", "N"))
        dat = add_column(dat, "K", c("T", "D", "K", "N"))
        dat = add_column(dat, "K", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "K", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "K", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "K", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "K", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "K", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "K", c("I", "M", "T", "D", "K", "N"))
        dat = add_column(dat, "N", "I")
        dat = add_column(dat, "N", "M")
        dat = add_column(dat, "N", "T")
        dat = add_column(dat, "N", "D")
        dat = add_column(dat, "N", "K")
        dat = add_column(dat, "N", c("I", "M"))
        dat = add_column(dat, "N", c("I", "T"))
        dat = add_column(dat, "N", c("I", "D"))
        dat = add_column(dat, "N", c("I", "K"))
        dat = add_column(dat, "N", c("I", "N"))
        dat = add_column(dat, "N", c("M", "T"))
        dat = add_column(dat, "N", c("M", "D"))
        dat = add_column(dat, "N", c("M", "K"))
        dat = add_column(dat, "N", c("M", "N"))
        dat = add_column(dat, "N", c("T", "D"))
        dat = add_column(dat, "N", c("T", "K"))
        dat = add_column(dat, "N", c("T", "N"))
        dat = add_column(dat, "N", c("D", "K"))
        dat = add_column(dat, "N", c("D", "N"))
        dat = add_column(dat, "N", c("K", "N"))
        dat = add_column(dat, "N", c("I", "M", "T"))
        dat = add_column(dat, "N", c("I", "M", "D"))
        dat = add_column(dat, "N", c("I", "M", "K"))
        dat = add_column(dat, "N", c("I", "M", "N"))
        dat = add_column(dat, "N", c("I", "T", "D"))
        dat = add_column(dat, "N", c("I", "T", "K"))
        dat = add_column(dat, "N", c("I", "T", "N"))
        dat = add_column(dat, "N", c("I", "D", "K"))
        dat = add_column(dat, "N", c("I", "D", "N"))
        dat = add_column(dat, "N", c("I", "K", "N"))
        dat = add_column(dat, "N", c("M", "T", "D"))
        dat = add_column(dat, "N", c("M", "T", "K"))
        dat = add_column(dat, "N", c("M", "T", "N"))
        dat = add_column(dat, "N", c("M", "D", "K"))
        dat = add_column(dat, "N", c("M", "D", "N"))
        dat = add_column(dat, "N", c("M", "K", "N"))
        dat = add_column(dat, "N", c("T", "D", "K"))
        dat = add_column(dat, "N", c("T", "D", "N"))
        dat = add_column(dat, "N", c("T", "K", "N"))
        dat = add_column(dat, "N", c("D", "K", "N"))
        dat = add_column(dat, "N", c("I", "M", "T", "D"))
        dat = add_column(dat, "N", c("I", "M", "T", "K"))
        dat = add_column(dat, "N", c("I", "M", "T", "N"))
        dat = add_column(dat, "N", c("I", "T", "D", "K"))
        dat = add_column(dat, "N", c("I", "T", "D", "N"))
        dat = add_column(dat, "N", c("I", "D", "K", "N"))
        dat = add_column(dat, "N", c("M", "T", "D", "K"))
        dat = add_column(dat, "N", c("M", "T", "D", "N"))
        dat = add_column(dat, "N", c("M", "D", "K", "N"))
        dat = add_column(dat, "N", c("T", "D", "K", "N"))
        dat = add_column(dat, "N", c("I", "T", "D", "K", "N"))
        dat = add_column(dat, "N", c("I", "M", "D", "K", "N"))
        dat = add_column(dat, "N", c("I", "M", "T", "K", "N"))
        dat = add_column(dat, "N", c("I", "M", "T", "D", "N"))
        dat = add_column(dat, "N", c("I", "M", "T", "D", "K"))
        dat = add_column(dat, "N", c("M", "T", "D", "K", "N"))
        dat = add_column(dat, "N", c("I", "M", "T", "D", "K", "N"))
        dat = keep_column(dat, c("I", "M", "T", "D", "K", "N")) %>% select(-"Total") %>% as.data.frame(stringsAsFactors = FALSE)
        return(dat)
    } else if(type == "BAA"){
        dat = add_column(dat, "i", "total")
        dat = add_column(dat, "m", "total")
        dat = add_column(dat, "t", "total")
        dat = add_column(dat, "b", "total")
        dat = add_column(dat, "k", "total")
        dat = add_column(dat, "i", "m")
        dat = add_column(dat, "i", "t")
        dat = add_column(dat, "i", "b")
        dat = add_column(dat, "i", "k")
        dat = add_column(dat, "i", c("i", "m"))
        dat = add_column(dat, "i", c("i", "t"))
        dat = add_column(dat, "i", c("i", "b"))
        dat = add_column(dat, "i", c("i", "k"))
        dat = add_column(dat, "i", c("m", "t"))
        dat = add_column(dat, "i", c("m", "b"))
        dat = add_column(dat, "i", c("m", "k"))
        dat = add_column(dat, "i", c("t", "b"))
        dat = add_column(dat, "i", c("t", "k"))
        dat = add_column(dat, "i", c("b", "k"))
        dat = add_column(dat, "i", c("i", "m", "t"))
        dat = add_column(dat, "i", c("i", "m", "b"))
        dat = add_column(dat, "i", c("i", "m", "k"))
        dat = add_column(dat, "i", c("i", "t", "b"))
        dat = add_column(dat, "i", c("i", "t", "k"))
        dat = add_column(dat, "i", c("i", "b", "k"))
        dat = add_column(dat, "i", c("m", "t", "b"))
        dat = add_column(dat, "i", c("m", "t", "k"))
        dat = add_column(dat, "i", c("m", "b", "k"))
        dat = add_column(dat, "i", c("t", "b", "k"))
        dat = add_column(dat, "i", c("i", "m", "t", "b"))
        dat = add_column(dat, "i", c("i", "m", "t", "k"))
        dat = add_column(dat, "i", c("i", "t", "b", "k"))
        dat = add_column(dat, "i", c("m", "t", "b", "k"))
        dat = add_column(dat, "i", c("i", "m", "t", "b", "k"))
        dat = add_column(dat, "m", "i")
        dat = add_column(dat, "m", "t")
        dat = add_column(dat, "m", "b")
        dat = add_column(dat, "m", "k")
        dat = add_column(dat, "m", c("i", "m"))
        dat = add_column(dat, "m", c("i", "t"))
        dat = add_column(dat, "m", c("i", "b"))
        dat = add_column(dat, "m", c("i", "k"))
        dat = add_column(dat, "m", c("m", "t"))
        dat = add_column(dat, "m", c("m", "b"))
        dat = add_column(dat, "m", c("m", "k"))
        dat = add_column(dat, "m", c("t", "b"))
        dat = add_column(dat, "m", c("t", "k"))
        dat = add_column(dat, "m", c("b", "k"))
        dat = add_column(dat, "m", c("i", "m", "t"))
        dat = add_column(dat, "m", c("i", "m", "b"))
        dat = add_column(dat, "m", c("i", "m", "k"))
        dat = add_column(dat, "m", c("i", "t", "b"))
        dat = add_column(dat, "m", c("i", "t", "k"))
        dat = add_column(dat, "m", c("i", "b", "k"))
        dat = add_column(dat, "m", c("m", "t", "b"))
        dat = add_column(dat, "m", c("m", "t", "k"))
        dat = add_column(dat, "m", c("m", "b", "k"))
        dat = add_column(dat, "m", c("t", "b", "k"))
        dat = add_column(dat, "m", c("i", "m", "t", "b"))
        dat = add_column(dat, "m", c("i", "m", "t", "k"))
        dat = add_column(dat, "m", c("i", "t", "b", "k"))
        dat = add_column(dat, "m", c("m", "t", "b", "k"))
        dat = add_column(dat, "m", c("i", "m", "t", "b", "k"))
        dat = add_column(dat, "t", "i")
        dat = add_column(dat, "t", "m")
        dat = add_column(dat, "t", "b")
        dat = add_column(dat, "t", "k")
        dat = add_column(dat, "t", c("i", "m"))
        dat = add_column(dat, "t", c("i", "t"))
        dat = add_column(dat, "t", c("i", "b"))
        dat = add_column(dat, "t", c("i", "k"))
        dat = add_column(dat, "t", c("m", "t"))
        dat = add_column(dat, "t", c("m", "b"))
        dat = add_column(dat, "t", c("m", "k"))
        dat = add_column(dat, "t", c("t", "b"))
        dat = add_column(dat, "t", c("t", "k"))
        dat = add_column(dat, "t", c("b", "k"))
        dat = add_column(dat, "t", c("i", "m", "t"))
        dat = add_column(dat, "t", c("i", "m", "b"))
        dat = add_column(dat, "t", c("i", "m", "k"))
        dat = add_column(dat, "t", c("i", "t", "b"))
        dat = add_column(dat, "t", c("i", "t", "k"))
        dat = add_column(dat, "t", c("i", "b", "k"))
        dat = add_column(dat, "t", c("m", "t", "b"))
        dat = add_column(dat, "t", c("m", "t", "k"))
        dat = add_column(dat, "t", c("m", "b", "k"))
        dat = add_column(dat, "t", c("t", "b", "k"))
        dat = add_column(dat, "t", c("i", "m", "t", "b"))
        dat = add_column(dat, "t", c("i", "m", "t", "k"))
        dat = add_column(dat, "t", c("i", "t", "b", "k"))
        dat = add_column(dat, "t", c("m", "t", "b", "k"))
        dat = add_column(dat, "t", c("i", "m", "t", "b", "k"))
        dat = add_column(dat, "b", "i")
        dat = add_column(dat, "b", "m")
        dat = add_column(dat, "b", "t")
        dat = add_column(dat, "b", "k")
        dat = add_column(dat, "b", c("i", "m"))
        dat = add_column(dat, "b", c("i", "t"))
        dat = add_column(dat, "b", c("i", "b"))
        dat = add_column(dat, "b", c("i", "k"))
        dat = add_column(dat, "b", c("m", "t"))
        dat = add_column(dat, "b", c("m", "b"))
        dat = add_column(dat, "b", c("m", "k"))
        dat = add_column(dat, "b", c("t", "b"))
        dat = add_column(dat, "b", c("t", "k"))
        dat = add_column(dat, "b", c("b", "k"))
        dat = add_column(dat, "b", c("i", "m", "t"))
        dat = add_column(dat, "b", c("i", "m", "b"))
        dat = add_column(dat, "b", c("i", "m", "k"))
        dat = add_column(dat, "b", c("i", "t", "b"))
        dat = add_column(dat, "b", c("i", "t", "k"))
        dat = add_column(dat, "b", c("i", "b", "k"))
        dat = add_column(dat, "b", c("m", "t", "b"))
        dat = add_column(dat, "b", c("m", "t", "k"))
        dat = add_column(dat, "b", c("m", "b", "k"))
        dat = add_column(dat, "b", c("t", "b", "k"))
        dat = add_column(dat, "b", c("i", "m", "t", "b"))
        dat = add_column(dat, "b", c("i", "m", "t", "k"))
        dat = add_column(dat, "b", c("i", "t", "b", "k"))
        dat = add_column(dat, "b", c("m", "t", "b", "k"))
        dat = add_column(dat, "b", c("i", "m", "t", "b", "k"))
        dat = add_column(dat, "k", "i")
        dat = add_column(dat, "k", "m")
        dat = add_column(dat, "k", "t")
        dat = add_column(dat, "k", "b")
        dat = add_column(dat, "k", c("i", "m"))
        dat = add_column(dat, "k", c("i", "t"))
        dat = add_column(dat, "k", c("i", "b"))
        dat = add_column(dat, "k", c("i", "k"))
        dat = add_column(dat, "k", c("m", "t"))
        dat = add_column(dat, "k", c("m", "b"))
        dat = add_column(dat, "k", c("m", "k"))
        dat = add_column(dat, "k", c("t", "b"))
        dat = add_column(dat, "k", c("t", "k"))
        dat = add_column(dat, "k", c("b", "k"))
        dat = add_column(dat, "k", c("i", "m", "t"))
        dat = add_column(dat, "k", c("i", "m", "b"))
        dat = add_column(dat, "k", c("i", "m", "k"))
        dat = add_column(dat, "k", c("i", "t", "b"))
        dat = add_column(dat, "k", c("i", "t", "k"))
        dat = add_column(dat, "k", c("i", "b", "k"))
        dat = add_column(dat, "k", c("m", "t", "b"))
        dat = add_column(dat, "k", c("m", "t", "k"))
        dat = add_column(dat, "k", c("m", "b", "k"))
        dat = add_column(dat, "k", c("t", "b", "k"))
        dat = add_column(dat, "k", c("i", "m", "t", "b"))
        dat = add_column(dat, "k", c("i", "m", "t", "k"))
        dat = add_column(dat, "k", c("i", "t", "b", "k"))
        dat = add_column(dat, "k", c("m", "t", "b", "k"))
        dat = add_column(dat, "k", c("i", "m", "t", "b", "k"))
        dat = keep_column(dat, c("i", "m", "t", "b", "k")) %>% select(-"total") %>% as.data.frame(stringsAsFactors = FALSE)
        return(dat)
    }
    return(NULL)
}