Change the package path

R/read.sumatra.R

@@ -0,0 +1,17 @@
+#' @include 02_class_metabarcoding.data.R
+NULL
+
+
+# TODO: Add comment
+# 
+# Author: coissac
+###############################################################################
+
+
+read.sumatra = function(filename) {
+	data = read.table(filename,sep="\t",header=FALSE)
+	score = data[,3]
+	name.first = mapply(min,as.character(s[,1]),as.character(s[,2]))
+	name.second= mapply(max,as.character(s[,1]),as.character(s[,2]))
+	sname = as.character(interaction(data[,1],data[,2]))
+}