Difference between revisions of "ReadGPR.R"
From Organic Design wiki
m (switch syntax) |
m |
||
| Line 1: | Line 1: | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
library(limma) | library(limma) | ||
sessionInfo() | sessionInfo() | ||
| Line 27: | Line 16: | ||
) | ) | ||
print(paste("source =",source.type)) | print(paste("source =",source.type)) | ||
| − | |||
| − | |||
| − | |||
| − | |||
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:26, 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)
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)
