data(afExp)
##before running this funtion, we need to find out "b1.txt" data file, and put it into the R workspace.
functionall(system.file("data","b1.txt",package="DBGSA"),10,avelinkdis,"euclidean","distance",afExp,2000,10,"rand.txt","pvalue.txt")Run the code above in your browser using DataLab