# NOT RUN {
n <- 3
X <- Variable(n, n, pos=TRUE)
objective_fn <- pf_eigenvalue(X)
constraints <- list( X[1,1]== 1.0,
X[1,3] == 1.9,
X[2,2] == .8,
X[3,1] == 3.2,
X[3,2] == 5.9,
X[1, 2] * X[2, 1] * X[2,3] * X[3,3] == 1)
problem <- Problem(Minimize(objective_fn), constraints)
result <- solve(problem, gp=TRUE)
result$value
result$getValue(X)
# }
Run the code above in your browser using DataLab