Semi-definite Programming Using optimize() in R