R/create.Rdata.files.R

In DOQTL: Genotyping and QTL Mapping in DO Mice

create.Rdata.files = function(prob.files, cross = "DO") {
  for(i in 1:length(prob.files)) {
    print(prob.files[i])
    prsmth = read.delim(prob.files[i])
    prsmth = exp(as.matrix(prsmth))
    class(prsmth) = c("genoprobs", class(prsmth))
    attr(prsmth, "cross") = cross
    save(prsmth, file = sub("txt", "Rdata", prob.files[i]))
  } # for(i)
} # create.Rdata.files()