## In order to use the following example
## make sure that you have writing permission under R.home()
## directory. If you do not have permission choose your own path.
#dir.create(file.path(R.home(component="home"),"/BiqAnalyzer"))
BiqAnalyzer_path <- file.path(tempdir(), "BiqAnalyzer")
dir.create(BiqAnalyzer_path)
makeLocalExpDir(dataPath="/examples/BiqAnalyzer", localDir=BiqAnalyzer_path)
datameth <- MethDataInput(file.path(BiqAnalyzer_path, "PathFileTab.txt"))
refseq <- selectRefSeq(file.path(BiqAnalyzer_path, "Master_Sequence.txt"))
QCdata <- MethylQC(refseq, datameth)
methData <- MethAlignNW( refseq , QCdata)
Run the code above in your browser using DataLab