R/gdsqform.R

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