R/gdsqform.R

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