A greedy approximation algorithm to solve the 0/1 knapsack problem in R. Not optimal, but close enough for my purposes.