R/SimportMarray.R

In Killua-github/Killua01: This package is for the advanced analysis of DAM detas.

SimportMarray <- function(LD, Outline)
{
  LDMarray <- array(0, dim = c(720 * 3, 32, length(Outline[, 1])))
  for (i in 1:length(Outline[, 1]))
  {
    LDfile <- list.files(pattern = paste0(Outline[i, 1], LD, ".txt"))
    LDData <- data.matrix(read.table(LDfile, sep = "\t"))
    LDdata <- LDData[, 11:42]
    colnames(LDdata) <- NULL
    LDMarray[, , i] <- LDdata
  }
  dimnames(LDMarray) <- list(rownames(LDMarray), colnames(LDMarray),
                             Outline[, 1])
  return(LDMarray)
}