R/psdc.R

In cccp: Cone Constrained Convex Problems

Defines functions psdc

Documented in psdc

##
## Function for creating 'PSDC' objects 
psdc <- function(Flist, F0){
    m <- nrow(Flist[[1]])
    G <- do.call("cbind", lapply(Flist, function(x) c(x)))
    h <- matrix(drop(F0), ncol = 1)
    return(list(conType = "PSDC", G = G, h = h, dims = m))
}

Try the cccp package in your browser