R/sortbyna.R

In vandy10s/mnma: Multivariate Network Meta-Analysis (NMA) within a Bayesian Framework

#' @title Sort data by number of arms in the trial
#' @description The function sort existing data and create a sorted dataset depending on the number of arms
#' @param out1 is the dataframe for outcome 1
#' @param out2 is the dataframe for outcome 2
#' @param TX is the dataframe for treatment
#' @return combined sorted data.frame with additinonal column for number of arms and number of outcome
#' @keywords internal


# Sorting data ============================================================================

sortbyna <- function(out1,out2,TX){

  temp <- cbind(out1,out2,TX)
  na  <- apply(TX,1, function(y) sum(!is.na(y)))
  noo <- apply(temp[,c(1,7)], 1, function(y) sum(!is.na(y)))
  temp$na <- with(temp, na)
  temp$noo<- with(temp, noo)
  temp <- temp[order(temp$na),]
  data <- temp
  return(data)
}