R/gdsqform.R

"gdsqform"<-
function(x, scale = FALSE)
{
	if(scale)
		x <- scaleto1(x)
	x/sqrt(apply(x^2, 1, sum))
}

Try the pcurve package in your browser

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

pcurve documentation built on May 2, 2019, 4:20 p.m.