####################################################
#The data are in inst/doc folder in rMAT package.
####################################################
pwd<-"" #INPUT FILES- BPMAP, ARRAYS, etc.
path<- system.file("extdata", "Sc03b_MR_v04_10000.bpmap",package="rMAT")
bpmapFile<-paste(pwd,path,sep="")
pathCEL<- system.file("extdata", "Swr1WTIP_Short.CEL",package="rMAT")
arrayFile<-paste(pwd,c(pathCEL),sep="")
# Show the all the different sequences
ReadBPMAPAllSeqHeader(bpmapFile)
# create a tiling Set from the corresponding data
# This will only grep the sequences with Sc
ScSet<-BPMAPCelParser(bpmapFile, arrayFile, verbose=FALSE,groupName="Sc")
# show the object
show(ScSet)
# summarize its content
summary(ScSet)
ScSetNorm<-NormalizeProbes(ScSet, method="MAT",robust=FALSE, all=FALSE, standard=TRUE, verbose=FALSE)
RD<-computeMATScore(ScSetNorm,cName=NULL, dMax=600, verbose=TRUE)
Enrich<-callEnrichedRegions(RD,dMax=600, dMerge=300, nProbesMin=8, method="score", threshold=1, verbose=FALSE)
Run the code above in your browser using DataLab