R/formultivariate.R

In Pintademijote/multipack: What the Package Does (One Line, Title Case)

#' Format tab generated by Chloe to be used for the metrics correlations test.
#'
#' `formultivariate()` Return the metrics computed by Chloe in a way that others function of this package
#' can run the different models.
#'
#' This function is made to be used to generate a tab used after in RV_Cor().
#' @param chloe Your tab of results produced by your analysis on Chloe
#'
#' @param dist Vector of scales you choosed in Chloe when you created the ascii whith Cloe
#' @param metrics Vector of metrics you choosed in Chloe when you created the ascii whith Cloe
#'
#' @return Return a tab containing the metrics computed by Chloe formated to be be used by others functions
#' of this package
#' @author Pierre-Gilles Lemasle <pg.lemasle@gmail.com>
#' @export
formultivariate=function(chloe,dist,metrics){
  metrics=metrics[rev(order(metrics))]

  temp=chloe[,c(1,2,3,grep(metrics[1], colnames(chloe)))]
  colnames(temp)[4:ncol(temp)]=gsub(paste("_",metrics[1],sep = ""), "", colnames(temp)[4:ncol(temp)])
  colnames(temp)[4:ncol(temp)]=gsub("w", "", colnames(temp)[4:ncol(temp)])
  temp=cbind(temp[,c(1,2,3)],temp[,as.character(sort(as.integer(colnames(temp)[4:ncol(temp)])))])
  colnames(temp)[4:ncol(temp)]=sub("^", "w", colnames(temp)[4:ncol(temp)])
  colnames(temp)[4:ncol(temp)]=paste(colnames(temp)[4:ncol(temp)],"_",metrics[1],sep="")
  chloe=chloe[,-grep(metrics[1], colnames(chloe))]

  for (i in metrics[2:length(metrics)]) {
    test=chloe[,c(1,grep(i, colnames(chloe)))]
    colnames(test)[2:ncol(test)]=gsub(paste("_",i,sep = ""), "", colnames(test)[2:ncol(test)])
    colnames(test)[2:ncol(test)]=gsub("w", "", colnames(test)[2:ncol(test)])
    test=cbind(test[,"id"],test[,as.character(sort(as.integer(colnames(test)[2:ncol(test)])))])
    colnames(test)[2:ncol(test)]=sub("^", "w", colnames(test)[2:ncol(test)])
    colnames(test)[2:ncol(test)]=paste(colnames(test)[2:ncol(test)],"_",i,sep="")
    colnames(test)[1]="id"
    temp=merge(temp,test,by.x = "id", by.y="id")
    chloe=chloe[,-grep(i, colnames(chloe))]

  }
  return(temp)
}