R/quadlin.R

Defines functions quadlin

Documented in quadlin

quadlin <-
function(Q,A,b)
  {

### % First, find lambda.
    lambda=solve( (A %*% solve(Q) %*% t(A) ), b)

### % Now, x.
    x=solve(Q)%*%t(A) %*% lambda;

    return(list(x=x,lambda=lambda))

  }

Try the PEIP package in your browser

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

PEIP documentation built on Aug. 21, 2023, 9:10 a.m.