Пакеты оптимизации для R - PullRequest
       22

Пакеты оптимизации для R

8 голосов
/ 11 декабря 2008

Кто-нибудь знает какие-либо пакеты оптимизации для R (аналогично NUOPT для S +)?

Ответы [ 6 ]

16 голосов
/ 28 июля 2009

R имеет много-много пакетов для оптимизации; проверьте представление задачи CRAN по оптимизации: http://cran.r -project.org / web / views / Optimization.html . Конечно, для нелинейных программ существует optim(), который является стандартным и включает алгоритм Бройдена-Флетчера-Гольдфарба-Шанно и Нелдера-Мида. Это хороший первый старт.

6 голосов
/ 06 января 2013

Вам также следует попробовать пакет Rglpk для решения проблем LP с GLPK (GNU Linear Programming Kit) .

Пример:

## Simple linear program.
## maximize:   2 x_1 + 4 x_2 + 3 x_3
## subject to: 3 x_1 + 4 x_2 + 2 x_3 <= 60
##             2 x_1 +   x_2 +   x_3 <= 40
##               x_1 + 3 x_2 + 2 x_3 <= 80
##               x_1, x_2, x_3 are non-negative real numbers

obj <- c(2, 4, 3)
mat <- matrix(c(3, 2, 1, 4, 1, 3, 2, 2, 2), nrow = 3)
dir <- c("<=", "<=", "<=")
rhs <- c(60, 40, 80)
max <- TRUE

Rglpk_solve_LP(obj, mat, dir, rhs, max = max)

R выход:
(Обратите внимание, что $status целое число с информацией о состоянии возвращаемого решения. Если параметр управления canonicalize_status установлен (по умолчанию), то он вернет 0 для найденного оптимального решения и ненулевое значение в противном случае. при значении FALSE будут возвращены коды состояния GLPK).

$optimum
[1] 76.66667

$solution
[1]  0.000000  6.666667 16.666667

$status
[1] 0
5 голосов
/ 12 января 2009

Linprog, упомянутый Галвегианом, фокусируется на линейном программировании с помощью симплексного алгоритма. Кроме того, вас может заинтересовать fPortfolio , если вы занимаетесь оптимизацией портфеля.

4 голосов
/ 06 января 2013

Попробуйте lpSolve с R.

Простой пример:

# Maximize 
#   x1 + 9 x2 +   x3 
# Subject to: 
#   x1 + 2 x2 + 3 x3 <= 9
# 3 x1 + 2 x2 + 2 x3 <= 15
f.obj <- c(1, 9, 3)
f.con <- matrix(c(1, 2, 3, 3, 2, 2), nrow = 2, byrow = TRUE)
f.dir <- c("<=", "<=")
f.rhs <- c(9, 15)

lp("max", f.obj, f.con, f.dir, f.rhs)
lp("max", f.obj, f.con, f.dir, f.rhs)$solution
3 голосов
/ 11 декабря 2008

Я использовал linprog для линейных задач в прошлом.

1 голос
/ 11 января 2017

Мне нравится Гуроби. Это очень дорого для лицензии, но ее можно получить во многих университетах. Смотрите здесь http://www.gurobi.com/products/modeling-languages/r

...