我有两个载体.第一个包含代表年度能源需求的值.它的长度为22，代表22年.第二个要大得多，并包含按降序排列的能量输出值.
以下是一些用于复制的代码:
# create demand vector
demand.vec <- c(427839, 408392, 388944, 369497.652793, 350050, 330603, 311155, 291708, 272261, 252814, 233366, 213919,
194472, 175025, 155577, 136130, 116683, 97236, 77788, 58341, 38894, 19447)
# create yield vector
set.seed(10)
yield.vec <- sort(runif(n = 10500, min = 800, max = 950), decreasing= T)
现在的目标是每年从yield.vec中总结尽可能多的值，以至少达到相应年份的能源需求.这意味着，对于第一年，应该将yield.vec中的太多值相加，从而达到427839.第二年，从剩余值yield.vec中计算出这些值，以达到408392，以此类推.
作为输出，我需要一个包含最终实现的年能源yields 的载体，理想情况下还需要一个显示相应年份使用了yield.vec中的哪些值的载体.因此，对于第一年，值将是428011.69755，因为它是sum(yield.vec[1:452])的结果并且大于demand.vec[1].在这种情况下，第二输出载体的第一个值将是452，因为需要尽可能多的值.第二个实现的值是409118.77503，sum(yield.vec[453:887])的结果大于408392.因此，第二输出载体的第二个值将是435，因为需要尽可能多的值等等.
有人有 idea 吗？