私は単純なナップザック問題を定式化しようとしていますが、なぜそれが動作していないのかわかりません。 i <- c(1,2,3,4)
v <- c(100,80,10,120)
w <- c(10,5,10,4)
k <- 15
F <- function(i,k){
if (i==0 | k==0){
output <- 0
} else if (k<w[i
データフレームからナップザックに入れる複数のアイテムを選択するこのコードはあります。私はそれだけで一度だけデータフレームから項目を選択することを望んでいた: - knapsack_volume<-function(Data, W, Volume, full_K){
Data = Data
# Data must have the colums with names: item, value