#Lymphoma data
data(lymphoma)
#Take out a smaller subset of 6 samples (using subsetData):
sub.lymphoma <- subsetData(lymphoma,sample=1:6)
#Winsorize data:
wins.res <- winsorize(data=sub.lymphoma,return.outliers=TRUE)
#Use pcf to find segments:
uni.segments <- pcf(data=wins.res,gamma=12)
#Use multipcf to find segments as well:
multi.segments <- multipcf(data=wins.res,gamma=12)
#Plot data and segments for chromosome 1 separately for each sample:
plotChrom(data=sub.lymphoma,segments=list(uni.segments,multi.segments),chrom=1,
layout=c(3,2))
#Let xaxis be probe index, and do not connect segments by vertical lines:
plotChrom(data=sub.lymphoma,segments=list(uni.segments,multi.segments),chrom=1,
xaxis="index",layout=c(3,2),legend=FALSE,connect=FALSE)
#Data was winsorized earlier. Mark winsorized values by different color
#and symbol:
plotChrom(data=wins.res,chrom=1,winsoutliers=wins.res,layout=c(3,2))
#Save plots in working directory:
plotChrom(data=sub.lymphoma,segments=uni.segments,chrom=c(1,2),
layout=c(3,2),dir.print=getwd(),file.name=c("chromosome1","chromosome2"),
onefile=FALSE)
Run the code above in your browser using DataLab