library(lpSolve)

f.obj <- c(240, 800) # 目的関数の係数
f.con <- matrix (c(1, 5, 1, 2, 3, 0), ncol=2, byrow=TRUE) # 制約式の左辺の係数
f.dir <- c(">=", ">=", ">=") # 制約式の等号・不等号
f.rhs <- c(240, 90, 60) # 制約式の右辺

res <-  lp("min", f.obj, f.con, f.dir, f.rhs)