R/solGS/combine_gebvs_files.r

   1 #combines gebvs of traits of a population
   2 # Isaak Y Tecle
   3
   4 library(phenoAnalysis)
   5
   6 options(echo = FALSE)
   7
   8 allArgs    <- commandArgs()
   9 inFile     <- grep("gebv_files", allArgs, value = TRUE)
  10 outputFile <- grep("combined_gebvs", allArgs, value = TRUE)
  11 inputFiles <- scan(inFile, what = "character")
  12
  13 combinedGebvs <- mergeVariables(inputFiles)
  14
  15 if (length(outputFile) != 0 ) {
  16   write.table(combinedGebvs,
  17               file = outputFile,
  18               sep = "\t",
  19               quote = FALSE,
  20               col.names = NA,
  21               )
  22 }
  23
  24 q(save = "no", runLast = FALSE)