new file mode 100644

@@ -0,0 +1,28 @@

+#' Load a count dataset associated with a study set up in a Qiime format.

+#' 

+#' Load a matrix of OTUs in Qiime's format

+#' 

+#' 

+#' @aliases loadMetaQ qiimeLoader

+#' @param file Path and filename of the actual data file.

+#' @return An list with 'counts' containing the count data, 'taxa' containing the otu annotation, and 'otus'.

+#' @seealso \code{\link{loadMeta}} \code{\link{loadPhenoData}}

+#' @examples

+#' 

+#' # see vignette

+#' 

+loadMetaQ <- function(file) {	

+	dat2 <- read.delim(file,header=FALSE,stringsAsFactors=FALSE,nrows=1,skip=1);

+	len = ncol(dat2)

+	subjects = as.character(dat2[1,-c(1,len)]);

+	classes <-c("character",rep("numeric",(len-2)),"character");

+	dat3 <- read.delim(file,header=TRUE,colClasses=classes,skip=1);

+	taxa<- dat3[,len];

+	taxa<-as.matrix(taxa);

+	matrix <- dat3[,-c(1,len)]

+	colnames(matrix) = subjects;

+	otus = dat3[,1];

+	rownames(matrix) = otus;

+	obj <- list(counts=as.data.frame(matrix), taxa=as.data.frame(taxa),otus = as.data.frame(otus))

+	return(obj);

+}