シンプレックス法の続き。 前回の調査で library(lpSolve) lp.assign を使えばいけそうなことが判明したので、 #データはリンクから作成しておく。 library(lpSolve) res <- lp.assign(data, direction="max") #全体を最大化するような最適化。最小化もでき…