↓導入の記事はこちら http://d.hatena.ne.jp/teramonagi/20091217/1261048574簡単な例題を通して動作を確かめんとす。 library(Rsolnp) #(x,y)=(1,2)で最小値をとるような凸関数 objectiveFunc <- function(x_) { return(sum((x_-c(1,2))^2)) } #決定変数の…