R/Barchart.data.R

Defines functions Barchart.data

Documented in Barchart.data

Barchart.data <-
function(data, title="Taxa Proportions"){
	if(missing(data))
		stop("data missing.")
	
	dataProp <- apply(data, 1, function(x){x/sum(x)})
	
	barplot(dataProp, col=rainbow(ncol(data)), horiz=TRUE, 
			main=title, axisnames=FALSE, font.main=20, font.sub=16)
}

Try the HMP package in your browser

Any scripts or data that you put into this service are public.

HMP documentation built on Aug. 31, 2019, 5:05 p.m.