有没有一种更有效的方法来确定所有4个数字的可能值加起来得出一个特定值。我已经使用了以下内容,但是如果我将其扩展为每组十个数字或四组以上,则效率低下
Grid <- expand.grid(a=seq(0, 100, 10), b= seq(0,100,10), c= seq(0,100,10), d=seq(0,100,10))
Grid$total <- apply(Grid, 1, sum)
Grid[Grid$total==100,]
在我的实际应用中,该数字将是等于1的百分比,并且将以不小于5的间隔进行调整
我敢肯定有很多解决方案,这是一个带partitions
库的解决方案,
library(partitions)
restrictedparts(10, 4, include.zero = FALSE)
# [1,] 7 6 5 4 5 4 3 4 3
# [2,] 1 2 3 4 2 3 3 2 3
# [3,] 1 1 1 1 2 2 3 2 2
# [4,] 1 1 1 1 1 1 1 2 2
这将是4个整数的总和为10(不包括0)。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句