inst/tinytest/test_tiny.R

## A tiny test

sol  <- scs(A = matrix(c(0.5, 2), 2, 1), b = c(3, 1), obj = 1,
            cone = list(l = 2), control = list(max_iters = 5000))
expect_equal(sol$info$status, "unbounded")
expect_equal(sol$info$pobj, -Inf)
expect_equal(sol$info$dobj, -Inf)

Try the scs package in your browser

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

scs documentation built on April 11, 2023, 6:04 p.m.