SampleToSum: Sample from a Specific Range with a Target Vector Sum
In mrdwab/SOfun: Functions From Answers to R Questions on Stack Overflow

Description Usage Arguments Value Note Author(s) References Examples

Takes a sample from a given range (for example, 1 to 100), and a specified resulting vector length (for example, 10), which add up to a specified value.

SampleToSum(
  Target = 100,
  VecLen = 10,
  InRange = 1:100,
  Tolerance = 2,
  showSum = TRUE
)

`Target`	The value that the vector should `sum` to
`VecLen`	The required vector length
`InRange`	The input range that values can be sampled from
`Tolerance`	A "buffer" for the `Target` argument, allowing the resulting sum to be slightly higher or slightly lower than specified.
`showSum`	Logical. Should the resulting total be shown?

A vector

There is a good chance that with certain settings, this will be VERY SLOW!

Ananda Mahto

http://stackoverflow.com/a/14687223/1270695

set.seed(1)
SampleToSum()

SampleToSum()

SampleToSum(Tolerance = 0)

SampleToSum(Tolerance = 0)

set.seed(123)
## You'll have to wait a few seconds here
SampleToSum(Target = 1163, VecLen = 15, InRange = 50:150)