Difference between revisions of "ReadGPR.R"
From Organic Design wiki
m (dummy edit) |
|||
| Line 1: | Line 1: | ||
| − | + | readGPR <- function(sourceType="median", dataDir="/Volumes/HD2/Data/Nutrigenomics/MultipleScans/GPR",...) { | |
| − | sessionInfo() | + | require(limma) |
| + | # 0) Provide log of session information | ||
| + | print(sessionInfo()) | ||
| − | + | # 1) Read medians or means... | |
| − | + | source.type <- switch(sourceType, | |
| − | + | mean = "genepix", | |
| − | + | median = "genepix.median" | |
| − | + | ) | |
| − | # 1) | + | print(paste("source =",source.type)) |
| − | + | if(exists("targets", inherits=FALSE)) { | |
| − | + | RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), ...) | |
| − | + | } else { | |
| − | source.type <- switch( | + | RG <- read.maimages(dir(dataDir, pattern=".gpr"), path = dataDir, source=source.type, wt.fun=wtflags(0), ...) |
| − | + | } | |
| − | + | RG$printer <- getLayout(RG$genes) | |
| − | + | return(RG) | |
| − | print(paste("source =",source.type)) | + | } |
| − | |||
| − | RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), | ||
| − | |||
| − | RG$printer <- getLayout(RG$genes) | ||
Revision as of 03:30, 23 February 2006
readGPR <- function(sourceType="median", dataDir="/Volumes/HD2/Data/Nutrigenomics/MultipleScans/GPR",...) {
require(limma)
- 0) Provide log of session information
print(sessionInfo())
- 1) Read medians or means...
source.type <- switch(sourceType,
mean = "genepix",
median = "genepix.median"
)
print(paste("source =",source.type))
if(exists("targets", inherits=FALSE)) {
RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), ...)
} else {
RG <- read.maimages(dir(dataDir, pattern=".gpr"), path = dataDir, source=source.type, wt.fun=wtflags(0), ...)
}
RG$printer <- getLayout(RG$genes)
return(RG)
}
