## Not run:
# #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)
# ## End(Not run)
Run the code above in your browser using DataLab