# Get path to example data and setup files:
dataPath <- system.file("extdata", package="piano")
# Load normalized data:
myArrayData <- loadMAdata(datadir=dataPath, dataNorm="norm_data.txt.gz", platform="yeast2")
# Perform differential expression analysis:
pfc <- diffExp(myArrayData, plot=FALSE,
contrasts=c("aerobic_Clim - anaerobic_Clim",
"aerobic_Nlim - anaerobic_Nlim"))
# Get chromosome mapping from myArrayData:
chrMap <- myArrayData$annotation[,c(2,3)]
# Get p-values from pfc
pval <- pfc$pValues
# Draw the polar plot:
polarPlot(pval, chromosomeMapping=chrMap)
Run the code above in your browser using DataLab