# NOT RUN {
dir = tempdir()
PredDisdir<-system.file("testForder",package="ftrCOOL")
PredDisdir<-paste0(PredDisdir,"/Disdir/")
ad1<-paste0(dir,"/disorderS.txt")
DisorderS(PredDisdir, outFormat="txt",outputFileDist=ad1)
unlink("dir", recursive = TRUE)
# }
Run the code above in your browser using DataLab