R/Px.R
In MICsplines: The Computing of Monotonic Spline Bases and Constrained Least-Squares Estimates

Px <-
function(X)
{
  if(is.vector(X))
  {
    X=as.matrix(X)
  }

  res=X%*%solve(t(X)%*%X)%*%t(X)
  return(res)
}

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

MICsplines documentation built on Sept. 7, 2021, 5:09 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the MICsplines package in your browser