Content - 27ceaef80214ccb3492f1a8fb5f9dc0d79d26f2c - 196589b/WQS.basis.r

WQS.basis.r

"WQS.basis" <-
function (N, cut.n = 8) 
{
Wtransform( diag(1,N), inv=TRUE,cut.min=cut.n)
}