Difference between revisions of "ReadGPR.R"
(read script) |
m (switch syntax) |
||
| Line 10: | Line 10: | ||
targets <- readTargets(dir(auxillaryDir), path=auxillaryDir) | targets <- readTargets(dir(auxillaryDir), path=auxillaryDir) | ||
| − | type <- " | + | library(limma) |
| + | sessionInfo() | ||
| + | |||
| + | # 0 Set up directories | ||
| + | auxillaryDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/Auxillary" | ||
| + | dataDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/GPR" | ||
| + | plotDir <- "DiagnosticImages" | ||
| + | |||
| + | # 1) load targets and data | ||
| + | targets <- readTargets(dir(auxillaryDir), path=auxillaryDir) | ||
| + | |||
| + | type <- "median" | ||
source.type <- switch(type, | source.type <- switch(type, | ||
| − | mean | + | mean = "genepix", |
| − | + | median = "genepix.median" | |
) | ) | ||
| + | print(paste("source =",source.type)) | ||
| + | |||
| + | RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), | ||
| + | wt.fun=wtflags(0)) | ||
| + | RG$printer <- getLayout(RG$genes) | ||
RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), | RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan), | ||
wt.fun=wtflags(0)) | wt.fun=wtflags(0)) | ||
RG$printer <- getLayout(RG$genes) | RG$printer <- getLayout(RG$genes) | ||
Revision as of 00:25, 21 December 2005
library(limma) sessionInfo()
- 0 Set up directories
auxillaryDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/Auxillary" dataDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/GPR" plotDir <- "DiagnosticImages"
- 1) load targets and data
targets <- readTargets(dir(auxillaryDir), path=auxillaryDir)
library(limma) sessionInfo()
- 0 Set up directories
auxillaryDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/Auxillary" dataDir <- "/Volumes/HD2/Data/Nutrigenomics/MultipleScans/GPR" plotDir <- "DiagnosticImages"
- 1) load targets and data
targets <- readTargets(dir(auxillaryDir), path=auxillaryDir)
type <- "median" source.type <- switch(type,
mean = "genepix",
median = "genepix.median"
)
print(paste("source =",source.type))
RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan),
wt.fun=wtflags(0))
RG$printer <- getLayout(RG$genes)
RG <- read.maimages(targets$Filename, path = dataDir, source=source.type, names=paste(targets$Filetype, targets$Scan),
wt.fun=wtflags(0))
RG$printer <- getLayout(RG$genes)
