#One of example that shows how to generate a expression matrix used in the analysis
requireAll(c('GEOquery', 'affy', 'hgu133plus2.db'))
#It might be needed to download the source files first, and save it to local directory
#such as "./data/Prostate/Varambally" in this example
#ftp://ftp.ncbi.nih.gov/pub/geo/DATA/SeriesMatrix/GSE3325/GSE3325_series_matrix.txt.gz
Varambally <- getGEO('GSE3325', destdir="./data/Prostate/Varambally")
Varambally <- Varambally[[1]]
Varambally.sLabel <- as.character(pData(Varambally)$title)
Varambally.sLabel[grep("Benign",Varambally.sLabel)] <- "Normal"
Varambally.sLabel[grep("primary",Varambally.sLabel)] <- "Primary"
Varambally.sLabel[grep("Metastatic",Varambally.sLabel)] <- "Metastasis"
Varambally <- exprs(Varambally)
colnames(Varambally) <- Varambally.sLabel
rownames(Varambally) <- unlist(mget(rownames(Varambally), hgu133plus2SYMBOL))
Varambally <- DropDupGenes(Varambally, na.rm=TRUE)
Varambally <- log2(Varambally)Run the code above in your browser using DataLab