18 lines
465 B
R
18 lines
465 B
R
#' @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]))
|
|
}
|