R/mdsform.R

"mdsform"<-
function(x, scale = TRUE)
{
	if(scale)
		x <- scaleto1(x)
	x <- x/apply(x, 1, sum)
	x
}
gavinsimpson/pcurve documentation built on May 16, 2019, 10:10 p.m.