R/load_dataset.R

In Fuschi/JAX: What the Package Does (One Line, Title Case)

#'@export
load_HMP2_16S <- function(){
	return(MetaGenomic$new(otu.HMP2.16S, meta.HMP2, taxa.otu.HMP2.16S))
}


#'@export
load_2DG_WGS <- function(what="count"){

	if( (what!="count" && what!="score") ) stop("what must be equal to 'score or 'count'")

	if(what=="count"){
		return(MetaGenomic$new(count.2DG.WGS, meta.2DG, taxa.2DG.WGS))
	} else {
		return(MetaGenomic$new(score.2DG.WGS, meta.2DG, taxa.2DG.WGS))
	}
}

#'@export
load_2DG_16S <- function(what="count"){
	return(MetaGenomic$new(otu.2DG.16S, meta.2DG, taxa.otu.2DG.16S))
}