#SOSCC algorithm #George M. Garrity and Timothy G. Lilburn #Copyright Michigan State University 2004, all rights reserved "read.eda" = function(file = "edafile") { return(eda.dis <- read.table(file, header = T, row.names = 1, sep = "\t")) }